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ABSTRACT 


Procedures to execute specific activities are usually 
communicated in writing throughout large organizations. This 
thesis presents a prototype example of interactive software 


as an alternative to the promulgation of written instruc- 


tions. The Naval Postgraduate School supply requisition 
generation process has been distilled into a single software 
package, the Supply Requisition Database (SRdb), which 
prepares requisition documents and maintains a local data- 
base of items ordered. Emphasis is placed upon ease of use 
and labor efficiency. Although limited initial testing of 


the software is reported, SRdb is offered primarily asa 


tool for further research of the concept. 


THESIS DISCLAIMER 


The reader is cautioned that computer programs developed 
in this research may not have been exercised for all cases 
of interest. While every effort has been made, within the 
time available, to ensure that the programs are free of 
computational and logic errors, they cannot be considered 
validated. Any application of these programs without addi- 


tional verification is at the risk of the user. 
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a PUREGsSE 

Each day military commands collectively promulgate 
thousands of instructions, notices, and orders which subor- 
dinates are expected to read, understand, and execute. 
Although the authors of these written guidelines strive for 
clarity, the onus to understand them is placed upon the 
addressee. With the proliferation of personal computers the 
potential now exists to achieve new dimensions of clarity 
and ease of understanding through the issuance of interac- 
tive software vice voluminous written instructions. 

Due to its capability to present a series of screens of 
ito rinaclon, software may be viewed as a communication 
medium. It is somewhat unique in that the user may interact 
with the software, for example, requesting further 'help' or 
clarification of particular procedures. The software also 
may be used to prepare reports by querying the user for 
inputs according to a specific logic. No pretention is made 
that software is the appropriate medium for the promulgation 
SOtvall anstrucettone.: In fact; 1 is quate’ probables chat ve 
is cost efficient in only a small percentage of situations. 

The purpose of this paper is to examine and propose a 
software-oriented alternative to the current manual, 
instruction-driven supply requisition process at the Naval 
Postgraduate School (NPS), Monterey, CA. Although the model 
presented addresses specific details of the NPS requisition 
transactions, it is felt that the general concepts could be 
extrapolated easily to other locations which also have 
Significant open purchase activity and a multitude of 


funding sources. 


B. APPROACH 

The current NPS requisition process was studied in 
detail by reviewing the NPS Supply Department Customer 
Service Manual [Ref. 1] and the applicable NPS Comptroller 
icerietlon (Ref. 2). Several modifications to these 
written quidelines were discussed at a two hour requisition 
training seminar presented by the Supply Department for NPS 
personnel [Ref. 3]. Finally, a working knowledge of the 
current system was attained through the interviewing of 
several persons involved in various stages of the requisi- 
tion process at NPS. In addition to gaining a better 
understanding of the precise operation of the current 
system, suggestions for improvement were solicited. 

Thesis research visits were made to the Fleet Hospital 
Support Office, Alameda, CA, Naval Supply Center, Oakland, 
CA, and the Supply Automation Office at NAS Miramar, CA, to 
review general supply automation efforts throughout’ the 


Navy. 


C. ASSUMPTIONS AND SCOPE 

The primary thrust of this paper is to present an 
example of interactive software as an alternative to a 
wemecen instruction. Although cost effectiveness will be 
briefly examined as a relevant issue, a complete cost/ 
benefit analysis is considered to be outside the scope of 
this thesis. 

A requisition may be viewed as a compilation of data 
elements such as nomenclature, stock number, quantity, ship- 
Ping codes, etc., which pertain to the item being ordered. 
During the course of research, some data elements required 
on requisition documents appeared to be a duplication of 
information, and other codes were discovered to be meaning- 
less in the NPS environment. Since it is not the purpose of 
this thesis to present an analysis of information and codes 
required on each requisition document, these problems will 
be left to others. 


For the purposes of this paper, every element of infor- 
mation and code which is required by applicable instructions 
and manuals [Refs. 1,2] are assumed to be necessary and 
appropriate. It is recognized that some of these requisi- 
tion forms are in DOD-wide usage, and therefore, they may 
utilize codes which perhaps have meanings in other environ- 
ments. An argument may easily be made that a locally 
produced requisition form would be more responsive to the 
needs of NPS supply customers, however, this is also felt to 
be an issue which is outside the realm of this thesis. 

It is important to note that this paper focuses upon the 
accurate generation of requisition documents via a session 
with interactive software, as opposed to reliance solely 
upon written instructions. There is no intent to present an 
analysis of the entire NPS requisition / purchase process. 
For further information the reader is referred to the bibli- 
ography, which cites several previous theses which have 
fully discussed these othér issues concerning the design and 


analysis of the NPS supply system. 
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Ii. BACKGROUND 


A. NPS REQUISITION SYSTEM CHARACTERISTICS 

During FY 85, the NPS Supply Department processed over 
17,000 requisitions with a total value in excess of 
$13,341,000. Due to the academic nature of its mission, the 
Naval Postgraduate School acquires a large percentage of its 
material via open purchase as opposed to reliance upon stan- 
dard government stock sources. Less than 15% of FY 85 NPS 
requisitions were filled from standard stock, resulting in 
almost 15,000 open purchase actions valued at $12,900,000 
[Ref. 4]. 

Seo Ooncwnau Unique im the number of different 
funding sources available for locally generated requisi- 
tions. Aside from the normal departmental Operating Target 
( OPTAR ) funds provided in the NPS Operations and 
Maintenance, Navy ( O&MN ) budget, large amounts of 
Reimbursable Funds (RF) (also called research funds) are 
provided by others commands which are sponsoring research 
work at NPS. This wide variety of funding sources will be 
found to introduce a degree of complexity in accurate gener- 
ation of requisition documents. 

The current NPS Supply requisition process appears to be 
a manual anachronism in the midst of a relatively computer- 
ized environment. At present, no phase of the requisition 
cycle has been touched by automation. This chapter will 
describe the present procedures for generation of NPS requi- 


sition documents. 


B. REQUISITION OVERVIEW 
Each NPS department has designated one or more personnel 
to serve as the focal point in preparing and tracking requi- 


sition documents. For academic departments this person is 


ae 


usually a clerk/typist serving ina GS-3 to GS-5 billet. 
Persons desiring to order materials usually notify the 
department clerk, who prepares the requisition documents and 
keeps a record of the transaction. The form of the @nieral 
request to the department clerk varies from one department 
to the next, running the gamut from a phone call, to a xerox 
copy of an advertisement with items circled, to a type- 
written memorandum. 

The department requisition clerk prepares the documents 
in accordance with the applicable local insteuctions 
[Refs. 1,2]. After the documents are prepared, the clerk 
will obtain the appropriate signature prior to routing out 


of the department for further action. See Figure 2.1. 


_ 
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Eaeume ) 239) Typical Requisition Flow 


If the requisition is to be funded from department OPTAR 


LUNG the department chairman or his designated 


HZ 


representative will sign the documents before they are 
forwarded to supply. If the requisition is to be funded from 
Reimbursable Funds (REF), the documents will be signed by 
the professor controlling the specific RF account. RF-funded 
requisitions are sent Leo supply via the Research 
Administration Office which screens the request to ensure 
that the funds are being spent in accordance with any 


limitations placed by the sponsoring command. 


Cy elves OF REOULSITIONS 
This section will describe the different types of requi- 


sitions and the associated documents. 


1. Ready Supply Requests 
To expeditiously satisfy customer requests, the most 


frequently requested consumable materials are stocked 
locally at the NPS Ready Supply Store (RSS). Materials 
stocked in the RSS for the convenience of the NPS customer 
‘are listed in the NPS RSS Catalog [Ref. 5]. Customers may 


obtain items from the RSS by forwarding a Material 
Requirements Document (Figure 2.2) to the RSS. RSS personnel 
will phone the exact total cost of the desired items back to 
the department requisitions clerk, who subsequently prepares 
a 'Money Value Only' DD-1348 (Figure 2.3) to be sent to the 
Roe 

The NPS Office Supply Issueroom (OSI) is a subunit 
of the RSS, where frequently used office materials, such as 
pens and folders, are available in limited quantities upon 
DEescem@earrlon Of a locally produced officejsupply request 
form, Figure 2. 4. 

The OSI maintains a running tally of the value of 
items issued and 'bills' each department monthly. A depart- 
ment ‘pays its bills' through issuance of a ‘Money Value 
Only’ DD-1348, as seen in Figure 2.3. The DD-1348 is an 


accounting document, andas such, it must be signed in the 
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maguire 2 ao DD-1348 for Money Value Only 
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le.70 
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Figure 2.4 Office Supply Request Form 


upper right corner by an individual designated by the 
department as authorized to obligate funds [Ref. 1: p. 4-6]. 


LS 


2. Standard Steck Requests 
Many commonly used items have been purchased in 


volume, assigned National Stock Numbers (NSN), and stocked 
at various stockpoints throughout the nation by the 
Department of Defense (DOD) or the General Services 
Administration (GSA). All standard stock items are requisi- 
tioned using a DD-1348, Figure 2.5, coded in accordance with 
the Military Standard Requisitioning and Issue Procedure 
(MILSTRIP) [Ref. 6: pp. 1-62]. A separate DD-1348 must be 


used for each line item of standard stock. 
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Figure 275 DD-1348 Standard Stock Requisition 


Se Open Purchase 





Items which are not available from standard stock 
may be purchased directly from commercial sources. Although 
departments are issued standard stock Gatalogs annual, “= 
is not uncommon for items, which are available from standard 
StOGcK, to be erroneously requested on an open purchase 
requisition. All open purchase requisitions are screened by 
the NPS Supply Department for availability in standard 
stock. If the same or 'like' item is found, the requisition 
is returned to the originator with a memorandum attached 


citing the apparent standard stock substitution nomenclature 


nS 


and NSN. If the standard stock item is acceptable to the 
customer, the department requisition clerk will generate a 
new DD-1348 for the appropriate standard stock item. If it 
is felt that the standard stock alternative is inadequate, a 
justification memorandum to the NPS Supply Department must 
aGecemoany the return of the original requisition. 
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Feaguizce 2.6 DD-1348 Open Purchase Requisition (single item) 


An open purchase requisition for a single item may 
be made using a DD-1348 as seen in Figure 2.6. A Standard 
Form 36 (SF-36) is required to be completed if more than one 
item is requested, | ene alee the item nomenclature and 
eect pirtOn Of specifications will not fit in blocks 8=z2zZ on 
DD-1348 [Ref. 1: p. 4-5]. An SF-36 (Figure 2.7) is viewed 
as aocontinuation of the DD-1348 (Figure 2.8) in these 
instances. 

It is important to note that each DD-1348 or 
DD-1348/SF-36 combination may specify only one vendor. Items 
desired from different vendors require separate requisition 
documents. 

For accounting purposes, items which are classified 
under different elements of expense must not be combined on 
a single requisition [Ref. 2: p. 3]. For example, an order 


for a personal computer and related software, even from a 


i? 


Excepnon to SF 36 ° 
Approved by NARS 9/76 


STANDARD FORM 36, JULY 1966 ae REF NO. OF DOC. BEING CONTO PAGE lor 
GENERAL SERVICES AOMINISTRATIO NTINUATION SHEET 
eeollenec mecnavcen a a N62271/6030/5709 H: 1 
NAME OF OFFEROR OR CONTRACTOR 

GENERAL DYNAMICS 3234 CONVAIR AVE SAN DIEGO, CA 92129 


20Mbyte Tape Streamer Model # 123456 215.00 825. 00 
Version 9.3 Black Finish 
500.00 


SOMbyte Hard Disk (IBM PC Compatible) 
LLGevoljesecs -x 9° xm: 


1500.00 


23259500 


Pagure.. Za SF-36 Open Purchase Continuation 
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Figure 2.8 DD-1348 Open Purchase Requiring an SF=-36 


Single vendor, requires at least two requisitions because 
the expense element codes for software and hardware are 
different [Ref. 2: encl(3) pp. 1-2]. 


a. Alternative Sources Memorandum 

Recently publicized purchases of '$600 ashtrays' 
and ‘$900 hammers’ have focused intense congressional 
scrutiny upon DOD procurement. In an attempt to ensure 
efficient use of tax dollars through competitive purchases, 
all open purchase requisitions with a total value exceeding 
$1,000 are now required to list a minimum of three alterna- 
tive vendors for the requested materials. The alternative 
suppliers may be shown in the space remaining at the bottom 
of an SF=-36, or a separate memorandum may be attached to the 


requisition [Ref. 3]. 


b. Sole Source Justification Memorandum 
An exception to the Alternative Sources 
Memorandum occurs when the customer is able to document the 
requirement for a sole source procurement. Contracting offi- 
cers are 'bound by law to seek competition’ unless it can be 
demonstrated that valid reasons exist which preclude compe- 


tition; therefore, requests for sole source procurement 


Lo 


actions are very carefully reviewed [Ref. 1:  p. 4-27). 
Central to the Sole Source Justifiiecautonmisea deserroeion on 
the critical features which limit its availability to a 
Single source, as well as a certification that this is the 
only product or service which will adequately meet the 


intended use or application. 
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III. SRdb SOFTWARE DESCRIPTION 


A. CONCEPT 

The Supply Requisition Database (SRdb) software was 
written to permit the generation of primary requisition 
documents through an interactive computer session. The 
target user, a department requisition clerk, initiates the 
order process by answering a logical series of plain 
language queries. Since the algorithms for placing the 
appropriate codes in the proper boxes on the documents are 
written into the software, the user is freed from memorizing 
Or copying cryptic codes. After all required questions have 
been answered, the user is prompted to load the proper blank 
document into the printer. Precise document formatting is 
provided in the SRdb software, eliminating all user format 
errors. 

The SRdb program is designed to extract key elements 
from each document and maintain a requisition database which 
can be used at the department level in lieu of the current 
ad hoc recordkeeping. SRdb files are written to the selected 
disk drive as per the SRdb configuration file. The configu- 
ration file is used to maximize the user friendly nature of 
the software and free the user from repetitive typing of 
elements which remain constant on each requisition, such as 
department name, phone, building, etc. The beta (initial 
test) copy of the SRdb package was preconfigured for use in 


the NPS Administrative Sciences department. 


B. SYSTEM REQUIREMENTS 

SRdb is designed to run on an IBM or IBM compatible CPU 
with a minimum of 256K of memory and 2 disk drives. 
Although it will operate small databases on floppy disk 
drives, it is highly recommended that a hard disk drive be 


Zo: 


Utilized if any of the following requirements are exceeded 
on an FY basis: 

* 50 accounts, 

e 150 suppliers, 

e 1500 requisitions, or 

e 2000 line items. 

Either a color or a monochrome monitor is acceptable. A 
friction feed printer is essential for printing of forms, 
however, a tractor feed printer is adequate for printing out 
reports and memorandums. 

since SRdb is essentially a dBASE III application 
program, a copy of dBASE III is required for program execu- 
tion. The beta copy of SRdb 1s confiquredesuchetiaeeae oo 
III and the SRdb program modules are resident on a single 
disk to be maintained in the 'A' disk drive. The database 
and index files are located on the 'B' drive. These drive 
assignments are optional and may easily be changed by modi- 
fying the configuration file. Por sellnienct details 
concerning system sizing requirements, the reader is 


referred to Appendix C, 'Database Structure’. 


C. FEATURES 
The general features of the SRdb software are described 
below. The reader is referred to the SRdb User's Manual in 


Appendix B for detailed operational descriptions. 


1. Document Generation 

The two primary requisition documents, DD-1348 and 
SF-36, are readily generated by SRdb. SRdb handles complex 
code assignment in document boilerplate according to the 
type of requisition. Julian dates are automatically calcu- 
lated, including leap year corrections. It also calculates 
the total value of the requisition required on the SF-36 and 
in block 'U' of the DD-1348 [Ref. 1: pp. 4-9 - 4-15]. 


fa G2 


When ready to print, the program pauses for the user 
to indicate that the proper form has been loaded into the 
printer. After the document has been printed, SRdb permits 
the user to immediately reprint it in case the printer was 
misloaded, or there were any mechanical malfunctions. 
Although both forms are available on continuous-feed stock, 
it is believed that it generally would be impractical to use 
such forms due to the variety of requisition types. For 
example, each SF-36 would necessarily be followed by a 
DD-1348 as described in Chapter Two, therefore, a friction 
feed printer is viewed as most practical.’ A single 
SRdb-generated DD-1348 or SF-36 document would be indistin- 
guishable from the same document prepared by a clerk-typist 
on an electric typewriter, except perhaps by the lack of 


overstrike errors. 


Z. Accounts Database 

SRdb -allows the clerk to select the appropriate 
account from an on-line listing, eliminating the repetitive 
Saeeyeot account information. Due to the proliferation of RF 
Pmeemiectes Chroughout NPS, it is not uncommon for a single 
department to have access to 30 or more different funding | 
accounts. SRdb records the following information for each 
agec oun: 

ss sAccount name, 

e Account number assigned by NPS Comptroller, 
e Mail code of responsible individual, 

e Type of funds (RF or not), 

* Document serial number range assigned, 

e Last document serial number used. 

Professors who are responsible for multiple RF 
accounts have a separate listing for each account. A menu- 
driven option permits the user to easily add additional 
accounts upon receipt of accounting data from the NPS 


Comperoller. 


Pao 


Tracking document serial numbers for each account 


permits the automatic generation of the 14-character 
document numbers (columns 30-43 of DD-1348), which area 
concatenation of the Unit Identification Code (UIC), Julian 


date, and the appropriate serial number. In SRdb, the entire 
process is now transparent to the user instead of a being a 


drill in “preersitonge pune 


3. Supplier Database 

A database file of suppliers 1S maintained on-line 
to assist the user in completion of open purchase requisi- 
tions. The vendor's name, address, and phone number are 
filed for easy future reference. SRdb allows the clerk to 
select the appropriate supplier from an on-line listing, 
eliminating the repetitive entry of vendor information. it 
an order is made from a supplier not currently in the file, 
he is automatically added to the database for future refer- 
ence... The supplier database also serves as an excellent 
source of alternative vendors, required in orders exceeding 
$1,000 value. 


4. Requisition Database 

A file is maintained containing the following items. 
of information about each requisition: 

¢ Requisition number, 

« Priority €eode of Frequisil elem 
e Supplier, 

e Date of requisition. 

The requisition database is indexed by requisition 
number and account number for ease of report generation. 
Each requisition is represented by a separate entry in this 
file. 


op Item Database 
In consonance with a database of Third Normal Form, 


as described by Kent [Ref. 7], a separate database contains 
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the items requisitioned. The database contains the following 
entries for each item: 
e Description of item (up to 44 characters), 
SsUnit Cfeissue, 
e Quantity ordered, 
¢ Unit price, 
e Requisition number, 
e Purchase order number, 
e Receipt status. 

The item database is indexed by both the requisition 
number and the purchase order number to facilitate item 
tracking and report production. This database also permits 
the tracking .-of which items have not been received. The 
Original unit price may later be altered to accommodate 


price changes, which are a common occurrence. 


6. Report Generation 
A primary strength of SRdb is the ability to easily 
generate reports from the various databases. The user is 
given the option of displaying each report on the screen or 
dumping it to a printer. Although there is a virtually 
unlimited number reports and formats which could be 
produced, the beta version of SRdb provides the following 
two basic types of reports. 
a. Requisition Summary 
The user may select from these three requisition 
display options: 
ime o& Single specific requisition. 
Z2) All requisitions charged to a specific account. 


3) All requisitions charged to a specific account between 
two dates. 


As may be seen in Figure 3.1, only essential 
data elements are presented in requisition summaries. MThere 
is no attempt to display an exact copy of the original 


requisition. 


Zo 


Account Name: LAPATRA 
Account #: RCAZ2Z 
To: ASHTON-TATE 
10150 W. Jefferson 
Culver City, CA 90230 


Requisition #: 53337003 
Priority: ¢ 


i Item Unit Cost Quant Revd PuOle ove 
l dBASE III $ 399.00 2 F 
2 Quick Code Mark IV $ 345.00 iL F 87654321 
Total items: 3 Total value: § 1,143.00 
BiqQure: sas Single Requisition Summary 


b. Summary of Items Not Received 


SRdb currently permits two types of displays of 


The user 


items ordered but not yet received. may elect to 


display all items outstanding for the entire department 


(Figure 3.2) or to restrict the list sto itemsPoutstanding 
from a specific account (Figure 3.3). 


will show at the bottom the 


Both types of listimgs 
total number and value of items 


not yet received. | 
AS Dept 


ETEMS “NOT WREGELVED sAS@Or sarc, ely oS 
if Item Req # P.O ee Ouant 
i LOTUS, 123 34LP45654323 53156504 il 
2 Pedometer (model 158) 53227676 2 
3 Nikon 35mm SLR Camera f1.4 2227.07 6 53403454 ne 
4 Calculator 34543LP09867 53306005 i 
5 DisplayComm Software Jo 550505 54129990 E 
6 IBM VM-370 Oper. Handbook 53336505 ak 
7 dBASE III 53337003 2 
8 Quick Code Mark IV 53337003 iL 
9 Amdek Color Monitor 13' 53337678 2 
10 9 Meg Buffer Board 53365707 Zs 
ll Calender 86 787566632234 53367005 3 
12 Desk Pad 66543FU45435 S5c67 7o2 i 
13. Symphony Clone Vers #3 53385708 3 
14 Sidekick Software 53387680 100 
15 IBM AT Personal Comp. 53387703 it 
16 Y-19 Communications Accessory Pack 53415709 i 
Total items: 32 Total value: § 64,656.62 
Bac ren: SZ Department Listing of Items Not Received 


The potential exists to restrict the listings to 


requisitions generated within a specific range of dates. 
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BoreaAccoune F°? RCAZZ 


DEEMS SNOT@REGEIVED AS OF ©1/23/ 86 


if Item Req # PO nud Quant 

1 dBASE Tit | 53337003 2 

2 Quick Code Mark IV S3g3g7003) 1 

3 Calender 86 787566632234 53367005 3 
Total items: 6 Total value: §$ L., Lae 


Figure 3.3 Account Listing of Items Not Received 


7. Alternative Sources Memorandum 

As described in Chapter Two, a memorandum listing 
three alternative suppliers must accompany all open purchase 
requisitions exceeding $1,000 in value. SRdb permits the 
user to page through the on-line list of available 
suppliers, selecting the desired ones. The user is then 
prompted for two departmental points of contact for the 
requisition. The resulting memorandum (Figure 3.4) is 


produced without further user input. 
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From: AS Department 01/24/86 

Teo: NPS Ssupoly 

Subj: Additional sources: for réquisitrcne oes o7 

l. Due to the high value of subject requisition, the following 


multiple supply sources are submitted: 


Monterey Bay Computerworks Phone: 408 889-3177 
1760 Fremont Blvd 


Seaside CA OD) 

IBM Government Products Phone: 518 864-2169 
321 Cypress Lane 

Oakmont ie ; 43563 

Trafalgar Systems Phone: 808 549-2843 
606 Alamoana Blvd 

Hono lai HI 9686/7 


2. Departmental points of contact for this request are: 
Greta Jones 2472 


Bette Midler a7 


Figure 3.4 Alternative Sources Memorandum 


Ze 


yee vink ORGS weno LOnyrr FREDBACK 


This chapter. will present a brief overview of the 
lessons learned from the limited trial operations of the 
beta copy of SRdb in the NPS Administrative Sciences 
Department. No pretention is made that these findings 
constitute a formal cost/benefit analysis of the concept, 
however, it is believed that they may serve a springboard 
for further research in the area. Feedback was obtained by 
direct observation of the requisition clerk users and post- 


use interviews. 


A. GENERAL 

The first trial of SRdb in the AS Department was 
conducted using a newly hired clerk who was unfamiliar with 
both the requisition process and personal computers. Her 
experience highlighted several procedural weaknesses in the 
software which were immediately corrected prior to further 
use. 

Users with all levels of experience in the requisition 
arena appeared generally favorable toward the SRdb concept. 
The best reception was from those with O to 5 years of 
requisition experience. Although the user's enthusiasm for 
the SRdb concept appeared genuine, it is recognized that 
their knowledge of the presence of the software's author may 
have somewhat colored their reactions. All said that it was 
superior to the current system of learning, which consists 
primarily of feet ality scopy ing previous requisitions, 
substituting the name, number, and price of the new item to 


be ordered. 


Eee Uo) © TON CODES 
The primary problem with the verbatim copying of 


previous requisition stubs is the inadvertent transcription 


Ze 


of inappropriate codes. Users have always found it easier to 
copy a sample, rather than research and understand the 
actual meanings of the codes. For example, after the 
issuance of the current NPS Customer Service Manual, the 
Supply Department noticed that the expense code 'T 2D' was 
being placed in block '0O' of virtually all DD-1348's. The 
cause was traced to the fact that all sample DD-1348's shown 
in the new manual used the 'T 2D' code as an example 
[Ref. 1: pp. 4-10 - 4-14]. Most requisition clerks were 
found to be blindly copying it, not really understanding 
why, but thinking that it should work [Ref. 8]. 

A valid argument may be made that it is unnecessary for 
clerks to understand the meaning of every single code on 
requisition documents. Indeed, six of the 22 codes found on 
a DD-1348 will never change for an NPS customer, therefore, 
it is acceptable for clerks to routinely copy those items. 
However, when a code is variable, under the current system 
the clerk should understand its significance. 

Due to the internalization of code algorithms within the 
SRdb software, it was most favorably received by inexperi- 
enced personnel who had not yet learned the details of the 
requisition coding process. SRdb generates the appropriate 
codes based upon user response to plain language queries, 
thereby relieving the user from memory work or copying 


exercises. 


C. DOCUMENT PRINTING 

The actual printing of requisition documents by SRdb was 
initially viewed by all users with concern. Due to its small 
size, the DD-1348 requires precise character placement, and 
no one was comfortable with alignment of the forms in the 
printer. It is a process which one learns through trial and 
error. Since SRdb permits an unlimited number of immediate 
reprinting attempts, the skill is rather easily acquired. No 


one required more than four trials to print his or her first 
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requisition. A rapid learning curve for subsequent uses was 
discovered for nearly all users. 


D. DATABASE USAGE 

The notion of reliance upon an electronic database 
rather than the current '‘'3-ring binder' system produced 
surprisingly mixed reviews. It was generally felt that 
unless the SRdb system was already running at the time a 
Single requisition needed to be reviewed, it might be easier 
and faster to locate it in the current binder system. All 
agreed that SRdb was superior in the generation of summary 
reports of items not yet received, however, this was not 
viewed as a feature which would be in frequent demand in the 
AS Department. Everyone liked the concept of maintaining 
on-line files of suppliers and account data to avoid typing 
of redundant information on multiple requisitions. 

SRdb was judged by some users to be weak in that the 
beta version requires all requisitions for a particular 
account to be generated via SRdb. In other words, Pe is 
difficult to 'juggle' the document serial numbers if a 
particular requisition is manually produced on a typewriter. 
This weakness could be overcome in two ways. An additional 
module could be created allowing the user to change the 
serial number of the next document, however, this has 
serious implications in terms of the ultimate integrity of 
the database. Alternatively, a department policy could be 
adopted requiring all requisitions to be generated by SRdb, 
thereby eliminating the possibility of conflicting manually 


generated document serial numbers. 
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V. IMPLEMENTATION CONSIDERATIONS 


A. BENEFITS 
In the case of SRdb, the following potential benefits 
may be derived from the issuance of interactive software 
instead of written instructions and manuals: 
1. Requisitions may be poner ace more Seta er easily, 
requiring less effort and perhaps permitting a reduc- 
tion in user labor expense. 


Zz. The time required to train users to produce requisi- 
tion documents may be significantly reduced. 


3. SRdb permits the automatic generation of various 
department level requisition summary reports which may 
be of value to management, however are not now 
produce due to their labor intensity ina manual 
system. 


4. A consistently higher qa of requisition document 
Bey assist the NPS upply Department in providing 
better response to customers. Many common requisition 
coding and ‘procedural errors would be eliminated, 
Ene eae reducing the number of documents returned to 
users for correction. 

5. SRdb's automatic generation of requisitions through a 
series of, progressive screens may eliminate many of 
the user's telephone queries concerning procedural 
matters to the NPS Supply Department personnel, saving 
Gime fom Doc 

Since only the last two of the five potential benefits 
would be enjoyed by the NPS Supply Department, it is legiti- 
mate to question whether it would be sufficiently in their 
interest to sponsor the implementation of an SRdb project. 
Although a majority of the benefits will be realized by 
other NPS departments, the bulk on the development and main- 
tenance expenses probably would fall upon the Supply 
Department. This would call for a change in the typical 
institutional inertia, deeply entrenched in division of 
labor and turf considerations, which notes that ‘we will 
tell them how to write a requisition, and we will process 
their finished document, but we are not going to write it 
for them.' In other words, despite the net potential benefit 


to the command as’ a whole, it would be natural for the 
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supply Department to continue to publish written instruc- 
tions, and let the customers in the other departments worry 
about reading, understanding, and executing them. Facing 
such natural barriers, if the Supply Department does not 
view benefits 4 and 5 as sufficient to warrant the expense 
from their viewpoint, it is probable that the concept repre- 
sented by SRdb will require sponsorship from someone at a 
sufficiently high echelon within the command to be concerned 


with the overall common benefit. 


Eee COSTS 

The current beta copy of SRdb required 450 hours of 
programming efforts by a relatively novice programmer. After 
software development, the maintenance phase continues to 
represent a substantial investment, frequently exceeding 50% 
of the total cost over the program's life-cycle [Ref. 9]. 
As requisition procedures are modified in the future, new 
versions of SRdb will require code alterations. SRdb may 
offer an advantage in that many modifications could remain 
transparent to the user, however, the costs of program 
Changes must still be paid, probably by the originator. The 
concept would be for new versions of floppy diskettes to be 
issued in lieu of the promulgation of change notices to 
written instructions. 

The disparity between media costs (diskette versus paper 
and ink) may not be as great as one might imagine. Now that 
diskettes may be procured in bulk for less than $1.00 per 
copy, the media costs are comparable and are considered to 
be a primary consideration. 

Viewed from a system perspective, SRdb requires the use 
of substantial assets beyond the cost of the SRdb software. 
Command-wide implementation of SRdb would of necessity force 
a review of the availability and utilization levels of 
personal computers throughout the command. NPS is somewhat 


unique in that the proliferation of personal computers has 


oS 


already enabled access to them in every department, however, 
it would certainly be a major consideration in a more 


diverse environment. 


Co SRab Seer 

It should be recognized that SRdb extends well beyond 
the bounds required to provide a software implementation of 
the requisition process as currently described in the appro- 
priate written references [Refs. 1,2,6]. The incorporation 
of a database capability in terms of a formal record keeping 
structure exceeds actions currently directed. The database 
features were included as a result of a survey of the record 
procedures of various departments. 

One may question the wisdom of stipulating the form of 
department records when there has been no guidance previ- 
ously given in this area. While no advantage has’ been 
conclusively proven supporting a requisition record system 
that 1s uniform Command -wade, Chere ais an vappea linge logtce ro 
having one group create a system which is automatically 
updated at the time of requisition generation with no addi- 
tional effort by the user. This is as opposed to the laisse 
faire process of each department reinventing the ‘record 
wheel' separately. Certainly a department could use SRdb for 
requisition preparation, choosing to ignore the 
SRdb=-produced records, and maintaining its manual binder 
file system instead. In all likelihood, if a descendent of 
SRdb is ever formally implemented, the manual records will 
continue to be Kept in parallel with SRdb until user confi- 


dence is fully gained. 
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VI. SUMMARY AND RECOMMENDATIONS 


SRdb is presented as an example of interactive computer 
software as an alternative to written instructions. The 
concept, as embodied in the SRdb prototype, has been infor- 
mally tested and successfully demonstrated to work in a 
closely controlled environment. Despite the appearance of 
high potential and the numerous common sense arguments which 
may be advanced in favor of software over written instruc- 
tions, it is inappropriate to conclusively state that SRdb 
offers proof of cost efficiency or effectiveness of the 
concept. SRdb is offered as a tool for further research and 


analysis in this arena. 


A. FUTURE ADAPTATIONS OF SRdb 

SRdb may be viewed as an attempt to improve the human 
interface with the NPS supply requisition process without 
modifying the basic system. Although document generation is 
now automated by SRdb, the physical transmission of requisi- 
tion data on paper stubs remains far less efficient and 
somewhat archaic when compared to other procedures which are 
readily available today. For example, an SRdb-like interface 
could easily electronically send the requisition to a host 
computer in the Supply Department, rather than produce paper 
stock which is manually routed. Supply procurement personnel 
could receive, review, and process requisitions on their 
terminals, eliminating enormous amounts of duplication in 
typing efforts. A ‘read only’ requisition supply status 
database could also be maintained on the NPS mainframe, 
accessible by modem or 3278 terminal from every department, 
eliminating substantial hours in answering routine status 


check phone calls. 
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Although current supply automation experts believe that 
the Navy is not yet ready for completely ‘'signatureless' 
electronic requisitions from the customer level, as a 
compromise, the system could permit automatic electronic 
transmission and processing of all requisition data elements 
to be followed by a simple signed memorandum citing each 
requisition [Refs. 10,11]. 

Organizations are just beginning to scratch the surface 
in realizing the potential of personal computers when teamed 
with the appropriate software. SRdb is a minor contribution 


to this abrasion process. 
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The Supply Requisition Database (SRdb) program is 
designed to be easily used by a person with very little 
Knowledge of the NPS Supply system. The menu-driven SRdb 
approach is best learned through experience. The purpose of 
this User's Manual is to serve as a reference guide if more 
details about a particular process are required. 

Assuming that your copy of SRdb has been configured for 
your department, there is no need to read further. Simply 
follow your department's instruction for disk placement and 
start up SRdb. It is recommended that new users use a test 
database diskette for the first session, so that practice 
requisitions and reports may be generated with no penalties 


for mistakes. Enjoy.... 
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II. START UP PROCEDURES 


WELCOME TO THE NPS SUPPLY REQUISITION DATABASE 


This program is designed to originate requisition 
documents (DD-134948s and SF-36s), as well as maintain 
a database of requisition status for a particular 
department. The system is designed for use by any 
personnel who are familiar with Naval Supply 
terminology, however, a detailed understanding 

of the decision matrix used in the generation of 


requisition documents is unnecessary. 


WARNING - If the user fails to adhere to any warnings 
presented by the program, he does so at 
the risk of data loss. 


Disks should NEVER be removed from the 
drives until the program has been exited. 





Screen 2.l Welcome 


The SRdb program is presented through a series of menus 
which are felt to be self-explanatory. This user's guide 
will present copies of actual screen displays. For example, 
Screen Zeki as the first seen when the =SRdb program is 
started. The space provided for user inputs would be seen 
as a cursor on the screen. In example screens in this 
manual,» the cursor will be represented by an underline __. 
If the screen is demonstrating an example of the choice made 
by a user, it will show the selection made as an underline, 


e.g. Y would represent a user's input of ‘'Y'. 

If this is the first time the program 1s being run in 
your department, it should be configured by someone familiar 
with dBASE III and the Program Maintenance Manual. 

ie, Turn on the computer & boot up DOS. If you don't know 


how to do this, get someone to do it for you, or read 
your computer instruction manual. 


Cn Assuming the program is configured for use in your 
department, load the program in accordance with the 
department's instructions. If none exist, then the 
program disk should be placed in the ‘'A* drive and the 
database disk placed in the ‘'B* drive. 


Si Type ‘ORDER’. 


G. Follow instructions to ‘Press a key to continue’ until 
you see the Screen 2.2 
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LOAD DISK DRIVES 


Database Disk Location 


Suppliers: "B' Drive 


Accounts: 'B' Drive 





Screen 2.2 load Disk Drives 


Ensure that the disk drives are properly loaded before 
proceeding! If you have loaded the disks in locations other 
than the locations now on the screen, this 1s the time to 
change them. 


Ge 


III. CONFIGURATION 


CONFIGURATION. 


This, program has beenspreconfigured for your use 
and should not require reconfiguration unless 
transported to another system or department. 


WARNING - Configuration changes should only 
made by personnel familiar with dBASE 


b 
I 


e 
II. 


Change Configuration (CY/N)? 





Screen 3.1 Configuration Banner 


Normally > the proper response to Screen 3.1 should be 


Taner The beta copy of SRdb has been preconfigured for the 
ses “Administrative Sciences Department. If you respond with 
my’ to Screen 3.1, you will be given the opportunity to 


Sea fy the default values shown on Screen 3.2. This process 
should be necessary only once per department. 
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This program is configured as follows: 


Department: AS 
Bldg: 330 

Room: 230 
Telephone: X2472 


Database disk locations: 
Suppliers: 'B* drive 


Accounts: "B' drive 
Color Monitor (CT/F): T 


Is this the correct configuration (Y/N)? __ 





Screen 3.2 Configuration Modification 


_ Responding to Screen 3.2 with a ‘"Y" will cause the 
displayed configuration to be saved to the program disk. 


GG 





IV. DATE CONFIRMATION 


Since the computer's system date may not have been 
correctly set, the opportunity is now presented to enter the 
desired date. This date will be used in dating all requisi- 
tion documents and reports, therefore, 1t¢ 15 important to 
ensure that it is correct. 


CONFIRM TODAY'S DATE 


ler? 3S 
CYAN). = 





Screen G.1 Confirm date 
If the date shown in Screen G.1 18S correct, enter ‘'Y'*, 
If you enter oN > Screen G@.2 will allow you to change the 


date as you desire. 


ENTER TODAY'S DATE 
7 RT, 


M/DDZYR 


Note - Leading zeros are required 
for single digit values. 





Screen 4.2 Enter Date 
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SUPPLY REQUISITION DATABASE 


Place an order 

Update files with purchase order # 
Mark items received 

List items not yet received 
Display a specific requisition 
Change an item price 

Enter a new supplier 

Create a new account 


QO. 
1. 
Cs 
Sen 
G. 
Sy 
6. 
fe 
8. 





Screen 5.1 Main Menu 


Screen 5.1] lis a display of the SRdb Main Menu. The 


following is a description of the various menu options. 


0) 
t 


2) 


3) 
G) 


5) 


6) 


7) 
8) 


Quit and exit the program. 


Place an order. Generates the appropriate requisition 
documents and places the order in the database. 


Permits the entry of a purchase order number for each 
litem when the purchase order information 1s received 
from supply. 


Permits the marking of items which have been received. 


Generates a listing of items which have not _ been 
received. 


Displays a specific single requisition or a Series of 
requisitions based upon a particular requisition 
Number or account number. The requisitions displayed 
may be made subject to a range of dates of origin. 


Permits the price of an item to be changed in the 
database. It does not regenerate requisition docu 
ments as this 1S generally unnecessary. 

Allows a new supplier to be entered into the database. 
Permits the creation of a new account when the appro- 


priate information is received from the NPS 
Comptroller. 
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VI. COMMONLY USED PROCEDURES 





There are several Procedures which are used many times 
throughout the SRdb program. This chapter will discuss all 
procedures which are common to two or more major routines. 
For example, the procedures to select an account are the 
same for all six different types of requisitions, therefore, 
aun selection 1s a Procedure which will be discussed 

ere. 


A. ACCOUNT SELECTION 


SELECT AN ACCOUNT 


By Account Name 
By Account Number 


Enter New Account 
Return to Main Menu 


Your choice: 





Screen 6.1 Select an Account 


Many routines require the user to select a particular 
account for further activity. The desired account may be 
specified by either account name or account number. If the 
account iS new, the option 1S given to create a new account. 
Since creation of a new account 1S also an option on the 
main menu, it will be discussed later. For purposes of the 
example at hand, it is assumed that the desired account 15 
already on file, and the user chooses to specify it by name, 
YVlielding Screen 6.2 


SRdb displays data on the 'LYONS' account in response to 
Screen 6.2. For user convenience, the name input is not 
sensitive to upper or lowercase. Lf 10 account having the 
desired name can be located in the database, the user is s5s0 
informed and instructed to try again. The dBASE III search 
procedure allows for input of partial names, such as ‘'LY' 
instead of ‘'LYONS'. 


Once the account is found, the user has several options 
as shown at the bottom of Screen 6.3. For purposes of this 
example, we have chosen to page back to the previous account 
in the database (files are alphabetically arranged by 
account name). This brings up the 'LAPATRA' account as seen 


in Screen 6.4. 
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Account Name: LYONS 


(Blank aborts process) 





Screen 6.2 Selecting by Account Name 


Account Name: LYONS 
Account Number: R1235 
Code: 54LY 

Research Account (T/F): T 


Requisition Serial # Range - From: 


Select an action: 


Use this account 

Secrolieec previous account 
SCroi. next account 
Return last menu 

Return main menu 





Screen 6.3 Scrolling to the Previous Account 


d in Screen 6.4 is selected 


The LAPATRA accaunt display 
oie Ss shown. 


e 
for use by choosing option a 
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Account Name: LAPATRA 
Account Numbers: RCAZ2 
Code: 54LP 

Research Account (T/F): T 


Requisition Serial # Range 


Select an action: 


Use this account 
Scrolls previous 
Scroll 

Return 

Return 





Screen 6.4 Selecting an Account for Use 


Bee SUPPOIER SelkECTION 


SELECuSA, SUPPULER 


By Supplier Name 
By Supplier Number 


Enter New Supplier 
Return to Main Menu 


Your choice: 





Screen 6.5 Select a Supplier 


Many routines require the user to select a particular 


Supplier for further activity. The desired account may be 
specified by either the supplier's name or the supplier 
number. If the supplier has never been used before, the 


Option is given to place the ‘new! supplier in the database. 
Since entering a new supplier 15S also an option on the main 
menu » it will be discussed later. For purposes of the 
example at hand, it is assumed that the desired supplier is 
already on file,» and the user chooses to specify it by name, 
as in Screen 6. 5, Since this process is nearly identical 
procedurally to selecting an account, a briefer example will 
be shown. The following screens will demonstrate the selec- 
tion by ‘'name't of ‘IBM'S as the desired vendor. 
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Supplier Name: IBM 


(Blank aborts process) 





Screen 6.6 Looking for IBM 


SELECTED SSURPE TER 


IBM GOVT PRODUCTS 
3a41 CYPRESS LANE 
OAKMONT NM G3563 


(505) 864-2169 Supplier #: 2170 


Select an action: 


Use this supplier 

Scroll to previous supplier 
Scroll to next supplier 
Return last menu 

Return to main menu 





Screen 6.7 Selecting IBM 


-f is selected for 
e supplier number 
base to keep track 


The IBM supplier displayed in Screen 6 
use by chosing option 1 as shown. Th 
shown 1S simply a number used by the data 
of the suppliers. 
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C. REQUIRED DELIVERY DATE 


Every type of order, except $$ Reimbursement to the RSS 
and transportation of material, presents the user with the 
opportunity to specify a Required Delivery Date (C(RDD). As 
shown in Screen 6.8, specification of the RDD is optional. 
While there are certainly no guarantees, an RDD will assist 
the Supply Department personnel in serving your needs. 


REQUIRED DELIVERY DATE CRDD) 


This 18S an optional 3 digit Julian date when the 
material or service is required. It is used to 
assist in the placement of the order. 


Desire to specify an RDD (CY/N)? _Y 


Enter RDD: Zoe 





Screen 6.8 Required Delivery Date 
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Be ORDER PRIORITY 
Three different order priorities are offered users, as 


shown in_ Screen 6.9, and a brief explanation of each 
priority 1s presented. 


ORDER PRIORITY 


A - Requirement is immediate and without the material 
required, the activity is unable to perform one 
or more of its primary missions. 

(Note: Requires NPS Superintendent approval) 


B - Requirement is immediate or it 1s known that such 
a requirement will occur in the immediate future. 


- Routine requirement. 


Select appropriate order priority: C 





Screen 6.9 Order Priority 
Most NPS requisitions are properly classified as 
priority pe ure Occasionally sufficient justification .is 


present to rate a requisition priority '‘'B". Note that ae 
Priority 'A' is selected, Screen 6.10 will be displayed. If 
the user chooses priority 'A't and indicates that approval of 
the NPS Superintendent has not been obtained, the opportu- 
nity will be given to reselect a priority. For more infor— 
mation, phone the Issue/Receipt Control Branch at ext. 2012. 


NOTICE 


A lority code of 'A' requires 


pri 
NPS Superintendent approval. 


Have you obtained approval (Y/N)? __ 





Screen 6.10 Priority 'A' Warning 
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E. PREPARE PRINTER 


_ screen 6.11 will appear as a warning anytime output is 
being directed to the printer. If the user opts not to 


continue, the current procedure will be aborted, and the 
Main Menu, Screen 5.1, will be displayed. If a requisition 
was being prepared, all data entered for that requisition 


Will be lost. 


PREPARE PRINTER 


Since output will now be sent to the 
printer, it should be connected and 
have the power turned on now. 


WARNING - Failure to prepare the printer may cause 
the computer to hang and possibly result 
in loss of data. 


Continue CY/N)? 





Screen 6.11 Prepare Printer Warning 


If the user continues past this screen, and the printer 
1s not powered, the system may hang. This will result in the 
loss of the most recently entered data and may actually 
damage data files, rendering them unreadable. . 

Screen 6.12 1s displayed, ensure the printer is prop- 
erly powered, connected, and loaded. The correct response to 
Screen 6.12 1S ani «ik. If the printer iS now prepared to 
Print, the process will continue. 


WARNING - If the user responds to Screen 6.12 with an 


"A', the SRdb program will be aborted, the user returned to 
DOS, and data files may be damaged. 


No paper error writing device PRN 


Abort, Retry, Ignore? __. 





Screen 6.12 Device Error 


ao 


_ S$ereens 6.13 and 6.149 are self-explanatory examples of 
displays which prompt loading of the correct form. The 
printer should be carefully loaded such that the document is 
positioned to print on the very first line. Forms loaded 
prior to the proper screen prompt may be ejected as the 
printer is addressed by the program. 


LOAD SF-36 INTO PRINTER 
& 


PRESS ANY KEY TO CONTINUE 





Screen 6.13 Load SF-36 


LOAD DD-1348 INTO PRINTER 


& 
PRESS ANY KEY TO CONTINUE 





Screen 6.14 Load DD-1348 
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Vill EU meACE AN OR DEK 


TO PLACE AN ORDER 


The purpose of this program is to generate the 
appropriate supply forms (DD 1348-6 &/or SF 36) to 
place an order. 


Select the type of order 


Open Purchase 

eee Stock items from NPS RSS, NSC Oakland, 
or 

Standard forms from NSC Oakland 

Publications from NAVPUBFORMCEN Phil 

$$ Reimbursement to NPS Ready Supply Store 

Transportation of material (Ce.g. Federal Express) 

Return to main menu . 


° e e © 


1 
2 
3 
4 
5 
6 
Ws 


Your order: 





Screen 7.1 To Place an Order 


Screen 7.1 shows the 6 different categories of requisi- 


tions which may be prepared. The category titles should be 
self-explanatory. Common procedures, which were described 
in.detail inthe last chapter, will not be discussed 


further. These procedures, such as selecting an account or 
supplier, will be listed as occurring, however, the reader 
Pomitenterred to the previous chapter™for details. 
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A. OPEN PURCHASE 


The Open Purchase order appears )as option (1 someochcen 
7 ol The following is the proper sequence of events to 
complete an open order. 


1) Select an account 

2) Select a supplier 

3) Option to specify an RDD 

G) Select requisition priority 
5) Enter item to be ordered 

6) Prepare printer 


Le Enter Item to be Ordered 

Screen 7.2 provides the user the opportunity to 
enter the description of the item to be purchased. it is 
important to note that although the entire description will 
appear on the requisition documents, only the 446 characters 
on the first line of the description will be saved in the 
database. It is important that the first line be suffi- 
ciently descriptive of the item, for it is this description 
which will appear on later reports and requisition 
summaries. SRdb has limited the size of the filed descrip- 
tion due to program efficiency and disk space considera- 


OMS. If the “user leaves Sethe st eao ee lime | (Ol face niererincess 
description blank, SRdb assumes that all desired items have 
been ordered. Up stow ld items may be ordered on a single 


SF-36. Note that this is a limitation of SkKdb rather than an 
official supply limitation. 


ENTER ITEM TO BE ORDERED 
Item description: 
<--Only this line is filed 


(Blank ends process.) 


Unit of issue: ea 


Unit prices: §$ : 


Quantity: 


Is this order correct (Y/N)? __ 





Screen 7.2 Open Order 
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Screen 7.3 1s an example of an order for two IBM 
Personal Computers. If the user indicates that there 1s an 
error on the screen, an opportunity will be provided to edit 
the item currently displayed. Once the user indicates that 
the order for an item is correct, there is no opportunity to 
Change the request. The entire requisition may _ be aborted 
just prior to printing, as described in Chapter 5. 


Item #: 
ENTER ITEM TO BE ORDERED 


em description: ; 
M Personal Computer <--Only this line is filed 


disk drives (Blank ends process.) 


Unit of issue: ea 


Unit price: $ 1565.00 


Quantity: 2 


Is this order correct (Y/N)? _Y 





Screen 7.3 Sample Open Order 


ST 


Bs STANDARD STOCK REQUISITION 
The Standard Stock Order appears as option '2' on Screen 
7.1 This option is used to pnlace an order for any materials 
which have a National Stock Number (CNSN) assigned, except 
forms or publications. The following is the proper sequence 
of events to complete a standard stock order. 
1 Select an account 
2) Select a stock source 
3) Option to specify an RDD 
G) Select requisition priority 
5) Enter item to be ordered 
6 ) Prepare printer 
des Select Standard Stock Source 
As seen in Screen 7G» there are G different sources to 


which a standard stock request may be addressed. The source 
used will depend upon where the item is located. 


STANDARD STOCK REQUISITION 


This program prepares a requisition for either a 
GSA or DOD standard stock item. If you want to 
order forms or publications, return to the previous 


NPS RSS Order 
NSC Oakland Order 
. GSA Order 
Return to previous menu 


Select: 





Screen 7.4 Standard Stock Sources 


ne Enter Item to be Ordered 
Screen 7.5 provides the user the opportunity to 
enter the stock number and a short description of the item 
to be purchased. The item will be described in the SRdb 
database as a concatenation of the stock number and the 
short name. The Distribution COG may be obtained in the same 
listing in which the stock number was found. 


Since a standard stock requisition may contain only 


one type of item, Oonee the User verifies | tia teune sd cen 
description is correct, the requisition will be printed. 
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ENTER ITEM TO BE ORDERED 


Stock number: 2342356664334 


. Short name: Pencil Holder 
lack 


Distribution COG symbol: 3T 





Unit of issue: ea 
Unit price: §$ LSS 
Quantity: 30 


Is this order correct (CY/N)? _Y 


Screen 7.5 Standard Stock Item Entry 


C. NSC OAKLAND FORMS REQUISITION 


The requisition of forms from NSC Oakland, CA, appears 


as option '3' on Screen 7.1. This option is used to place 
an order for standard forms, which are assigned an NSN and 
are stocked at NSC Oakland. The following 15 the proper 


-. sequence of events to complete an NSC Oakland forms order. 


lvoe segkect an account 
2) Option to specify an RDD 
pee oelect requisition priority 
G) Enter item to be ordered 
5) Prepare printer 
Since this procedure is identical to the standard stock 
requisition process presented above, it will not be 


repeated. Screen 7.6 notifies the user of the selected 
process and provides an opportunity to abort. 
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FORMS ORDER 


the documents required to order 
‘ If you desire to order forms 
ladelphia, do not continue. 


This program p 
forms from NSC 
from NAVPUBFOR 


r 


M 


epares 
OAKLAND 
CEN Phi 


Continue CY/N)? 





Screen 7.6 Forms Order 


De PUBLICATION REQUISITION 
The requisition of publications from NAVPUBFORMCEN, 
Philadelphia, PA, appears as option 'G' on Screen 7.1. This 
option is used to place an order for publications, which are 
assigned an NSN and are stocked at NAVPUBFORMCEN. The 
following is the proper sequence of events to complete a 
publication order. 
1) Select an account 
eo) Option to specify an RDD 
5) Select requisition priority 
G) Enter item to be ordered 
5) Prepare printer 
Since this procedure is identical to the standard stock 
requisition process presented above, at waa not be 


repeated. Screen 7.7 notifies the user of the selected 
process and provides an opportunity to abort. 
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PUBLICATION 


This program prepar 


e 
publications from NA 


ORDER 


ed to order 
hia. 


Continue CY/N)?__ 





Screen 7.7 


Publication Order 


E. RSS REIMBURSEMENT 

The reimbursement of the NPS RSS through issance of a 
"money value only! DD-1348, appears as option '5' on Screen 
7 oul. The following is the proper sequence of events to 


complete a DD-1348 for RSS reimbursement: 


1) Select an account 
2) Enter the amount to be paid 
5) Prepare printer 


Screen 7.8 notifies the user of the selected process and 
provides an opportunity to abort. 


$$ REIMBURSEMENT TO RSS 


This program prepares 


a DD-1348 for ‘money value only' 


as reimbursement to the NPS RSS. 


Continue CY/N)?__ 





Screen 7.8 


RSS Reimbursement 
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F. TRANSPORTATION OF MATERIAL REQUISITION 
The requisition of transportation of material appears as 

option '6' on Screen 7.1. This option is used to to pay for 
services, such as Federal Express,» which are used to trans- 
port needed materials. The following 1s the proper sequence 
of events to complete a transportation of materials requisi- 
tion. 

1) Select an account 

Co Select a supplier (company) 

3) Enter transportation serial number 

G) Select requisition priority 

5) Enter to whom item 1s addressed 


6) Prepare printer 


TRANSPORTATION OF MATERIAL 


This program prepares the supply documents necessary 


to use commercial carriers (e.g. Federal Express or 
UPS) to ship items. 


Continue CY/N)?7__ 





Screen 7.9 Transportation of Material 


Screen 7.9 notifies the user of the selected process and 
provides an opportunity to abort. The only new procedure in 
this order sequence 1s the entering of the Transportation 
Document Serial Number as displayed in Screens 7.10 and 
yee. Screen 7.10 provides the opportunity to abort the 
oe Soo? lf the proper document serial number has not been 
O ained. 
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ENTER TRANSPORTATION SERIAL NUMBER 


Transportation requests require issuance of a special 
serial number directly from the comptroller. Phone 
the NPS comptroller at x2257 to obtain. 


Select an action: 


Ready to enter serial number 
Abort to main menu 





Screen 7.10 Prepare to Enter Transportation Number 


Enter Serial #: 1234 


Correct (CY/N)? 





Screen 7.11 Enter Transportation Serial Number 
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VITIT. UPDATE EFEREES WITH PURCHASE ORDER 


In choosing option 2 from the Main Menu, Screen 5.1, the 
user 1S presented with the opportunity to enter purchase 
order numbers from supply for each item. Screen 8.1 noti- 
fies the user of the selected Be ° Sees and provides an oppor- 
tunity to abort. 


PURCHASE ORDER NUMBER (PO#3} 


Once a PO# is received from supply, this program 
permits entry of the PO# for each item ordered. 
Since not all items on the original requisition 


may have been ordered by supply on the same 
purchase order, you are requested to separately 
confirm each item on the purchase order. 


Continue CY/N)? 





Screen 8.1 Input P.O. # 


If the user chooses to continue, he will be asked to 
input the requisition number -and the purchase order number 
PO #) of the item he is seeking, as in Screen 8.2. Leaving 
he requisition number blank will abort the process and 
eturn the user to the main menu. 


ENTER DATA 


Requisition # :; 23423423 
(Blank ends process) 


Purchase Order #: 12345678 
Correct CY/N)? 





Screen 8.2 Input Req # and PO # 
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; Peeenereodddsition is not found in the file, Screen 8.3 
1s displayed. The user will subsequently be given another 
opportunity to enter the requisition number. 


REQUISITION NOT IN FILE 


Please double check the requisition # and try again. 


Press any key to continue... 





Screen 8.3 Requisition Not Found 


Once the requisition is found, each item on the requisi- 
tion will be displayed one at a time. The user will have the 
opportunity to indicate exactly which items are on the 
purchase order, as seen in Screen 8.4. 


Requisition #: 23423423 
meem: dBASE Iii 
Quantity: 1 

Unit Price: 456.75 


Is this item on purchase # 12345678 CY/N)? 





Screen 8.G4 Item Displayed for PO # Input 
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IX. MARK SLRENS RECEIVED 


In choosing option 3 from the Main Menu, Screen 5.1, the 
user 1s presented with the opportunity to enter notation of 
the receipt of items in the database. Screen 9.1 notifies 
oe User of the selected process and provides an opportunity 

Oo abort. 


INPUT RECEIPT STATUS 


You will be given the opportunity to indicate if 
Specific items, currently not marked as received, 


have now been received. Items reviewed will be 
grouped by requisition number or purchase order 
number at your option. 


Continue (Y/N)? 





Screen 9.1 Mark Receipt of an [tem 


The user 1s permitted to identify the received item by 
specifying the original requisition number or the purchase 
order number (PQ#), assuming the file has been updated with 
the POQ#. Screen 9.2 shows an example of the uSer choosing 
to specify a requisition number. 


SRdb will then screen the database and individually 
display each item filed under that number which 15S not 
already marked as received. If all items have been marked as 
received, the user will be so informed. Otherwise, each 
outstanding item will be displayed, as in Screen 9.3. 
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PREPARING TO MARK ITEMS RECEIVED 


Ow by requisition # 
ow by purchase order # 
turn to main menu 


Enter Requisition #;: 53156504 


Note - Blank ends process 





Screen 9.2 Pick Requisition Number or PO # 


The following item shown as not received 


Requisition #: 53156504 
Purchase Ord #: 54443221 


Item: dBASE III 
Quantity: 1 Unit Price: $ 456.75 


Has this item been received (Y/N)? ___ 





Screen 9.3 Item Not Shown as Received 
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XA. LIST JTEMNS NOT YEW RECEveD 


In choosing option @© from the Main Menu, Screen 5.1, the 
user 1S presented with the opportunity to create a listing 
o f all items in the database which are tagged as not 
received. Screen 10.1 notifies the user of the selected 
process and provides an opportunity to abort. 


LIST ITEMS NO RECEIVED 


This program generates a listing of items ordered but 
not yet received. The) list may be sent to the screen 


or printer at the user's option. The search for items 
not received may alsq be limited within parameters 
provided by the user. 


Continue (CY/N)? 





Screen 10.1 List Items Not Received 


As shown in Screen 10.2, the user may select from two 
search types. Both searches will list only items marked as 
not received. The user is also given the option OF 
C2 ano the listing on the screen or Protea ngs Tt to the 
printer. 
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Select Search Type: 


No limits (show all items not received) 
Limit list to specific account number 
Return to main menu 


screen 
aan 2 i 





Screen 10.2 Search Type Selection 
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XI. DISPLAY A REQUISITION 


In choosing option 5 from the Main Menu, Screen 5.1, the 
user 1S presented with the opportunity to display one or 
more requisitions from the SRdb database. Screen l1l1l.1 noti- 
fies the user of the selected process and provides an oppor- 
tunity to abort. 


DISPLAY REQUISITION 


This program will display one or more requisitions 
subject to user selection criteria. The list may 
be sent to the screen or printer at the user's 
option. 


Continue CY/N)? 





Screen 11.1 Display Requisitions 


Screen ll.2 1s the primary menu for selecting options 
for the display of requisitions. The user is asked to choose 
the type of requisition search and the mode of the output, 
either screen or printer. 


If the user wants to print out only a single requisi- 
tion, he will select option ‘'l* from Screen Lie: and he 
will then prompted for entry of the requisition number. 
Option '2' from Screen 11.2 will allow the user to view all 
requisitions on file from a specific account. If the user 
selects option 'G'’, he will have the opportunity to review 
all requisitions from a single account generates between two 
dates, as seen in Screen 11.3. 
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DISPLAY REQUISITIONS 


Selection: 


Return to main menu. 
Display single requisition 
Display requisitions from specific account 


Display requisitions subject to account # & date 


screen 
Printer 





Screen 11.2 Display Requisition Options 


Find Requisitions Created 


Between 


10/01/85 and L12/11/785 
mm/dd/yy mn/dd/yy 





Screen 11.3 Requisition Generation Dates 


Tr 


XII. CHANGE AN ITEM PRICE 





In choosing option 6 from the Main Menu, Screen 5.1, the 
user is presented with the opportunity to update the actual 
price of an item which has already been ordered and is an 
the SRdb database. It is not uncommon to receive price 
changes from NPS Supply after an item has been’ ordered. 
Screen 12.1 notifies the user of the selected process and 
Provides an opportunity to abort. 


CHANGE ITEM PRICE 


This module is used when the item's final price 
differs from that on the original requisition. You 
will be shown all items associated with a specific 
requisition # or purchase order #. Upon displaying 
each item, you will be given the opportunity to 
cee the item's unit price or scroll to the next 
item. ; 


Continue (CY/N)? 





Screen l2.l Change Item Price 


Items may be reviewed by specifying either the original 
requisition number or the purchase order number, 1f one has 
been assigned. An example will be shown specifying a requi- 
sition number, as in Screen l2.2d. 


If the requisition number entered in Screen 12.3 cannot 
be found, Screen 12.4 will be presented. The user will be 
presented with another opportunity to enter the correct 
requisition number. 


Screen 12.5 presents the item to the user and asks if a 
price change is desired. If the user responds 'Y', then the 
cursor will move to the price and permit a change. The user 


will be asked to confirm changes before they are saved to 
the database. If a mistake 1s made, the process may be 
repeated until the correct price is filed. 


he 


Preparing to change an item price 


Select: 


how by requisition # 
how by purchase order # 
eturn to main menu 





Screen 12.2 Select Item by Req # or PO # 


Enter Requisition # ;: 12345678 


Note - Blank ends process 


Correct (Y/N)? 





Screen 12.3 Enter Requisition Number 


Requisition # not in file. 


Please double check the Requisition + and try again. 


Press any key to continue... 





Screen 12.4 Requisition Not Found 


tS 


Requisition #: 53365707 

Purchase Ord #: 

Item: 9 Meg Buffer Board 

Quantity: 2 Unit Price: $ 2875.50 


Change unit price (Y/N)? 





Screen 12.5 Item Displayed for Price Change 
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XIII. ENTER A NEW SUPPLIER 


In choosing option 7 from the Main Menu, Screen 5.1, the 
Maer 1s presented with the opportunity to enter ao Mnew 
supplier into the database. All required information, name, 
address» and phone number should be available to the user. 
The phone number is mandatory. It is used by SRdb to select 
a supplier number. The supplier number is Simply a number 
used by the program to keep track of the suppliers. Since 
suppliers may be recalled by their name, there is no need 
for a user to commit the supplier numbers to memory or main- 
tain an external list. Screen 13.1 notifies the user of the 
selected process and provides an opportunity to abort. 


INPUT A NEW SUPPLIER 


In order to input a new supplier, you must have the 
following information available at this time: 


Supplier Name 
Address 
Phone # 


The phone number is mandatory. Do not proceed unless 
you are ready to enter the above information. 


Continue (Y/N) ? 





Screen 13.1 Enter New Supplier 


Screen 13.2 shows an example of the blanks the the user 
will be expected to complete. Screen tS. -1s an example 
which has been completed by the user. Note that SRdb has 
assigned the supplier number. 
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NEW SUPPLIER 


Name: 

Address: 

City: 

Phone: ( ) = 


Note - Phone # 1S mandatory 





Screen 13.2 Input new Supplier 


NEW SUPPLIER 


Name: New Guy Cables 
Address: 1021 Brandnew Circle 


City: Jigdog State: _GA Zi pee ones 0 7. 
Phone: (904) 421-8895 


Assigned Supplier #: 8896 


Press any key to continue... 





Screen 13.3 New Supplier Example 
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XIV. CREATE A NEW ACCOUNT 


In choosing option 8 from the Main Menu, Screen 5.1, the 
user 1s presented with the opportunity to enter anew 
account into the database. All required information should 
have been received from the NPS Comptroller office and be 
available to the user. Screen 14.1 notifies the user of the 
selected process and provides an opportunity to abort. 


CREATE A NEW ACCOUNT 


order to enter a new account you must have 
O 


r 
following information available at this time: 


In 
the 


Account Name 

Account # Cassigned by NPS Comptroller) 
Serial # range assigned to account 

Is it a research account? 


WARNING - If you do not understand any of the 


above items, seek assistance and do 
not continue further at this time. 


Continue CY/N)? 





Screen 14.1 Enter New Account 


Screen 14.2 shows an example of the blanks the the user 
will be expected to complete. Screen 14.3 is an example 
which has been completed by the user. The ability to enter 
the last serial number used assists in transitioning current 
accounts to the SRdb system. If an account is brand new, the 
next document serial number to be used is the first one in 
the series. I f the account is being transitioned to SRdb, 
Simply enter the last serial number used, and the system 
Will properly number future requisition documents. 


Te 


INPUT NEW ACCOUNT 


Account Name: 

Account Number: 

Code: 

Research Account (T/F): 

Requisition Serial # Range - From: 


To: 
Last Serial # Used: 
Cleave blank if account never used yet) 





Screen 14.2 Input New Account Screen 


INPUT NEW ACCOUNT 


Account Name: Newman, 
Account Number: RG321 
Code: 5GNM 


Research Account (T/F): _T_ 


Requisition Serial # Range —- From: 


To: 
Last Serial # Used: 
Cleave blank if account never used 


Correet CYAND 2¥%o 





Screen 14.3 New Account Example 
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APPENDIX C 


DATABASE STRUCTURE 


_ The BeogEam uses 5 separate database files (.dbf), 4 of 
which have indexes each. The width of fields and indexes 
are expressed in bytes. It should be noted that the size of 
indexes are approximations which were calculated in_accor- 
dance with the procedures outlined in the Ashton Tate = 
Advanced Programmer's Guide [Ref. 12]. | The grand totals 
given for each account represent the minimun number of bytes 
Meee fOr Cach record in the database. The reader is 


referred to the Ashton Tate - Advanced Programmer's Guide 
[Ref. 12] for more in depth sizing algorithms. 
ACCNISdbf 


Field 
ANAME 


RESEARCH 
LOSERNO 


HISERNO 
LASTUSED 


Indexes 

ANAME_A 

ACCNO_A ple) 
Grand total 


ar 
ae 
D 


Total 





SWE eeclio ts 


Field Type 
SNAME & 
ADDR 

Ci Ty 

STATE 
Zoe 


FONE 
SUPNO 


Indexes 
SNAME_S 28 
SUPNO_S ple? 
Grand total 


QAQAACM 


Total 
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Field 
DESCRIP 
UN TE 


QUANT 
OPRICE 
Sate 
PONO 
RCVD 


Indexes 
REONO_ I 
SUPNO_I 


Tal claw 


oe 


MOAZAZY 


Total 


Grand@eocal 


Field 
ITEMNO 
DESCRIP 
DESCRIP2 


DESERIPS 
UNE 


UPRICE 
QUANT 





TEMPLATE. dbf 


ae 


ZAZZ0Q0Q 


Total 





_ No indexes are required. 
which is copied to a TEMPORD. dbf whenever. 
After the requisition documents have 
bf 1s erased. 


order is to be mad 


e. 
been prepared, TEMPORD.d 


This .dbf& serves as a template 
an open purchase 
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APPENDIX D 


DATA Se tee! ONaARyY 


I. INTRODUCTION 


Memory variables in dBASE III remain local to_ the 
modules, in which they were created unless they were declared 
Pomc. Drier ope ag a value initially assigned. This 
data dictionary lists all PUBLIC memory variables. Unless 
erent Se noted, memory variables are assumed to be of type 
character. 


dive PAd LCS pATA 


static data elements usually do not change values durin 
a typical normal run. They are eee associated wit 
control or reference. All static data elements have preas- 
Signed values. 


A. File Names 
The following data-elements identify specific disk files 
and are always concatenated with a dis identifier (A,B,C, 
ete. stored as C_ADRV or C_SDRV). 
ACCNO_A ndx file to ACCNT. dbf indexed on account number. 
ACENO_R nas file to REO. dbf indexed on account nmwmber. 
BCCNT Gist stile for all accounts. 
C_ADRV Memory variable stored in CONFIG. VAR. file. 
Soe tonating the expected disk drive location for 
account and requisition related files. 
C_SDRV Memory variable stored in CONFIG. VAR file 


designating the expected disk drive location for 
supplier files. 


ITEM dbf file holding each item which has been 
requisitioned and related information. 

PONO_I ndx file to ITEM.dbf indexed on purchase order 
numbers. 

REQ dbf file holding data Ee rae requisitions to 
specific suppliers and accounts. 


REQNO_I ndx file to ITEM.dbf indexed on requisition 
numbers. 


REONO_R ndx file to REQ.dbf indexed on requisition 
numbers. 


SNAME_S ndx file to SUP.dbf indexed on supplier name. 


SUP dbf file listing names, addresses, and phone 
numbers of known suppliers. 
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SUPNO_S 
TEMPLATE 


TEMPORD 


ndx file to SUP.dbf indexed on supplier number. 


an empty dbf file containing the structure of 
fields essential in creation of an open order 
requisition. It ™@sPusea to create the  Uaveene 
file whenever an open order requisition is 
executed. 


a cenp ean file used to hold the full description 
of all items in an open order. The regular 

ITEM. dbf only stores a one line description (38 
characters). Thasefile temporarily hotas 2 
additional 38 character lines until the SF-36 has 
been printed. After the SF-36 document has been 
successfully printed, and the essential details of 
the requisition have been filed in the ITEM. dbf 
and REQ. dbf, the TEMPORD file is erased. 
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CCOLOR 


ERRCOLOR 


Ey 


MONEY 


MSCOLOR 


WMSG 


B. Misc Static Memory Variables 


Holds color assignments for normal text screen 
output. May be changed to accommodate monochrome 
monitors based on the value of C_CLRMON, however, 
Since the program is expected to always be run on 
eee cane system, this is viewed as a static 
variable. 


Holds color assignments for error messages for 
screen output. May be changed to accommodate 
monochrome monitors based on the value of 
C_CLRMON, however, since the program is expected 
to always be run on the same system, this is 
viewed as a static variable. 


Last digit of the fiscal year used in the —— 
construction of the appropriate FY oriented julian 
date for use in forming valid requisition numbers. 
ine fase at Neo is stored eile a fv. (D- fimke on) the 
account disk. 


ay "MONEY VALUE ONLY" to be inserted on on a 
DD-1348 prepared to pay an NPS RSS billing. 


Colfer assignments for Ae ee messages for 
screen output. May be changed to accommodate 
monochrome monitors based on the value of 
C_CLRMON, however, since the program is expected 
to always be run on the same system, this 1s 


viewed as a static variable. 


Wait message which requests user to "press a key 
to continue. This was used vice the system wait 
prompt because this message is centered. 


oe 


It. DYNAMIC INPUT DATA ELEMENTS 





The following data elements directly receive values from 


user inputs during the program run. A beaeft descriptiom of 

the variable is followed by legal value constraints (length, 

data type). 

ACCNO Account number assigned by NPS Comptroller and 
entered in ACCNT. dbt in NEW_ACNT. PRG; is unique. 
(5 char) 

ADDR supplier street address as input to SUP. dbf oy 
user; filed in SUP. dbf by NEW_SUPL. PRG (20 char) 

ADDR1 ist line of address of receiver of material 
shipped by XPOR_ORD. PRG. (25 Gliaes)) 

ADDR2 2nd line of address of receiver of material 
shipped by XPOR_ORD. PRG. (Zo char) 

ADDR3 3rd line of address of receiver of material 
shipped by XPOR_ORD. PRG. (Zo eelar) 

ADDR2 4th line of address of receiver of material 
shippedgby APORZORD. PRG») (2Zeme war } 

ANAME Account name, usually individual's last name, as 
entered in ACCNT. dbf in NEW_ACNT. PRG. (12 char) 

AREACODE Phone areacode of supplier as input to SUP. dbf in 
NEW_SUPE. PRG. ow char) 

Clim City of supplier address as ae EO SUE. dbf by 
user; @ftileq@q@ in SUP. dbt by NEWESUPE. ERG (12 char) 

CODE Code of individual account as entered in ACCNT. dbf 
in NEW_ACNT. PRG. (4 char) 

DESCRP The mem var which receives an item description. 
The value is epee filed ian Cae DPESERIE 
field of the ITEM. dbf file. (44 char) 

Diat Distribution symbol used in ordering stock- 
numbered items. (2 char 

Bae Phone extention of the Ist point of contact listed 
in a supplemental memo accompanying an order 
exceeding $1,000. (4 char) 

Er Phone extention of the Zinc proline on ConeadGcee li ccce 
in a supplemental memo accompanying an order 
exceeding $1,000. (4 char) 

FONE Phone number of supplier as input to SUP.dbf in 
NEW_ SUPE: PRG] (7 eenan) 

HISERNO High serial number in range of serial numbers 


assigned to a specific account by the NPS 
Comptroller and entered in ACCNT. dbf in 
NEW_ACNT. PRG. (4 char) 


84 


LASTUSED 


LOSERNO 


NOMEN 1 
NOMEN 2 


ECCI 
PeCZ 


PRI 
QUNT 
RESEARCH 


RDD 
RePeresS 
SHIPTO 


STATE 
STKNUM 


Tepe 


serial number used in most recent requisition (not 
iaerudi ng Eau aaies Ol Bequisitiens) from a 

Spee Tat G eqcCOume encered Jn ACCENT. dbf an 

NEW_ACNT. PRG. This field is updated in the process 
of making each new order. (4 char) 


Low serial number in range of serial numbers 
BP eagned CO a Specific account by the NPS 
Comptroller and entered in ACCNT. dbf in 
NEW_ACNT. PRG. (4 char) 


Used to hold lst line of a short description for a 
stock-numbered items in BUY1_ITM. PRG. (43 char) 


Used to hold 2nd line of a short description for a 
stock-numbered item in BUY1_ITM. PRG. (13 char) 


ESEMeOOINe Of Contact’ listed 
memo which accompanies orders 
Cz2 char) 


ZAdmepoimt Of contact” listed 
memo which accompanies orders 
(22 Ghar ) 


1 letter code indicati riority assigned to 
cola Br A rary 


in a supplemental 
exceeding $1,000. 


in a supplemental 
exceeding $1,000. 


‘requisition by user. /( 


Pyantss of item to be ordered. 
1 - 99999, numeric) 


Logical variable assigned .T. 
research monies. (1 Logical) 


if. account involves 


Required delivery date; 3 digit julian date that 
material is desired; assists supply department in 
placing order. (1 =- 366, numeric) 


Logical variable 
specify an RDD. ( 
not specified) 


elle Walger alien Telgle> siksyene tT Jalehs) feleleysyeaqy ete, 
Tiwi: “neleespeciiied: .&. 2£f r 


ReaGnecoee sco whom Maceriaiwrs tombe ECransported 
VWietmeneciilhs helOt IS)to Cover Eransportation of 
material; used by XPOR_ORD.PRG (25 char) 


state of supplier address as pu EOu SUL seb r 5 
Wise tilted In SUP,aAD£ by NEWLSUPL, PRG (2 char 


Federal stock number of item ordered by 
BUMS PRG (iS char) 


Date variable holding today's date. If 
transactions are to be generated for dates other 
than nae this date must be modified in 
GET_DATE.PRG (MM/DD/YY, date) 

Umer of order, e.g. ‘ea’, “dz, 


etc. (2 char) 


SS 


UPRCE Unit. price of item. Must allow for order of atems 
which are free. = 992997. 99, numeric} 
Ze Zip code of supplier address as input to SUP.dbf 
° ore filed in SUP -dbti sy Naver Ens 
char 
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IV. DYNAMIC OUTPUT DATA ELEMENTS 


The following data elements receive values from within 
the Rooweal ead the program run. The domain of values is 
controlled since the user never eee a vVamue Girectly, but 
rather, values are assigned internally based upon his 
Peo pOtoe:. An example of this type of data element may be 
Seem the  tollewing construction “Wm which DEMAND is a 
dynamic output data element: 





t t 
RE! 
'n! 


If answer 
DEMAND 


AREACODE1 Areacode of 2nd Sn ee to appear ona 
supplemental memo which See mca OLders 
eucgeding $1,000.00. AREACODE] is not input b 
user, but rather read from AREACODE field of o 
the record the user has chosen from the SUP. dbf. 
tomes ae ae 1s made in the SUP_MEMO. PRG 
char 


AREACODE2 Areacode of 3rd supplier to appear on a 
supplemental memo which accompanies orders 
exceeding $1,000.00. AREACODE2 is not input b 
user, but rather read from AREACODE field of o 
the record the user has chosen from’ the SUP. dbf. 
(ser ag ae is made in the SUP_MEMO. PRG 
char 


CHECKER an internal variable which assumes the value of. 
CiewerorlUshD Serial number Ofwan account, used in 
the calculation of a new requisition number Dy 
CALC_REQO. PRG (4 char) 


Clery 1 City of 2nd supplier to appear on a supplemental 
memo which accompanies orders exceeding $1,000. 00. 
Cirtwm is not oe by user, but rather read from 
CITY field of of the record the user has chosen 
from the SUP.dbf. Value assignment is made in the 
SUMO. PRC (12 .char) 


CrEy 2 City of 3rd supplier to appear on a supplemental 
memo which accompanies orders exceeding $1,000. 00. 
Cie 1s hot input by user, but rathem,~read from 
Ci treotdgor sors ehe record the wserenas chosen 
from the SUP.dbf. Value assignment is made in the 
SUF MEMO. PRE (12 char) 


COUNTER Numeric variable used to count the number of line 


items in a requisition. (1 - 13, numeric) 
DEMAND Refers to the recurring nature of demand for an | 
item or service. (‘R' if demand is recurring; 'N 


Pe honrecusring. ) 
BOCTD Document identifier oo Se ee! OLeket J. 


AOA for NSN items; LOreNavy Forms ¢& 
ublications; 'AOE' for non-standard stock items. ) 
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FONE1L 


FONEZ 


FUND 


GOAHEAD 


JULIAN 


MARKER 


MS_Code 


PREGREY 


REQNO 


RMKO 


ROUTE 


Phone number of 2nd Stee to appear on a 
supplemental memo which accompanies orders 
exceeding $1,000.00. FONE1 is not input by user, 
but rather read from FONE field of of ao record: 
the user has chosen from the SUP.dbf. 

assignment is made in the SUP_MEMO. PRG Vayu ene 


Phone number of 3rd SUPP Een to appear ona 
supplemental oe wale accompanies orders 
exceeding $1,0 FONE2Z is not input by user, 
but rather mee econ FONE field of of the record 
the user has chosen from the SUP. dbf. Value 
assignment is made in the SUP_MEMO. PRG (7 char) 


Fund Code as described on p. 4-8 of Ref. l. 
'2S' for non-reimbursible requisitions; 'Y6' for 
PA material) 


Logical control value used to control execution 
flow in BUYZ_ITM. PRG after running of WARNING. PRG 
(a> leogie sl) 


3 digit numeric value based on julian date as 
calculated by GET_DATE. PRG (1 = 366, numeniie) 


Tracks the number of lines being Soe CS On one the 
screen to_ensure that output does not overf 
screen. Initialized to 9, triggers a ectee peer 
value > 23. (9-24, numeric) 


M&S Code as described on F -~7 of Ref. l. Value is 
assigned based on PRI COD ised ae for are one 
Sto@m requis i Prona es (aiee Te PRI “ide 
for PRI_CODE = 'B’ or 


Priority code.as deseni Dedsonm eso mowecel le 
Value is assigned based on PRI_CODE. Ls a2 Or 
PRIM@ODE A - "10" for °PRiIeonE = > ae Gs 
PRI G¢opE = Ce 


Requisition number which is concatenation of the 
last digit of the FY + 3-digit JULIAN date + 
4-digit Seria number which is taken from an 
individual s aceount) )(aeemar) 


£ Os 


Remarks which are printed in block '0O' of a 
DD-1348. Consists of expense element kee Sy 
to the type of material i BFOST ES as pre, 

( val tey ae are eles 

an 


Routing identifier as Ge see oes On Pagee Of hee 
Used ay for standard stock disdelons. 5 af 
for NSC Oakland, wake Po is NAVE BEGCRMCEN, Phill 


Noz' 
'29S' for NPS RSS 
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SENDTO 


SERVICE 


536 


SIGNAL 


SNAME1 


SNAMEZ 


STATE 


STATEZ 


SUPADR 


SUPNO 


Supplier name from SNAME field of record selected 
neues en SUP. dbf. Used in Block A of DD=-1348. 
char 


haSstueadrloiemot “Current FYosintered in block 45 of 
DD-1348. (0-9, char) 


Logical variable = .T. when printing of an SF=36 
1s required. An open order requires printing of an 
SF-36 when ; 

ae Item description exceeds available space on 
DbD-1348 Peele a ee 

2) More than one item is being ordered on same 
oer. OF Gar ie Gideon. 
(Cilogical) 


et nal Code as described on 4-8 of Ref 


; eel 
for free publications, ‘A’ for all other items). 


Name of the Z2nd See to appear on a 
supplemental memo which accompanies orders 
exceeding $1,000.00. SNAME1 is not input by user, 
but rather read from SNAME field of of the record 
Mimo ciIgeiads Chosen from the SUPNdbr. Value 
assignment is made in the SUP_MEMO. PRG (20 char) 


Name of the 3rd Se et to appear on a 
supplemental memo which accompanies orders 
exceeding $1,000. 00. SNAME2 is not input by user, 
but rather read from SNAME field of of the record 
the user has chosen from the SUP.dbf. Value 
assignment is made in the SUP_MEMO.PRG (20 char) 


state address of the Znd supplier to appear on a 
supplemental memo which accompanies orders 
exceeding $1,000.00. STATE] is not input by user, 
Pilteetacier read from STATE field of of the record 
the user has chosen from the _SUP.dbf. Value 
assignment is made in the SUP_MEMO.PRG (2 char) 


State address of the 3nd supplier to appear on a 
supplemental memo which accompanies orders 
exceeding $1,000.00. STATE2 is not input by user, 
but rather read from STATE field of of the record 
the user has chosen from the SUP.dbf. Value 
assignment is made in the SUP_MEMO. PRG (eZe char ) 


Supplementary address of requisition as described 
on p. 4-8 of Ref. 1. This is also Known as the 22 


Saeteammoer. It results from a rather series o 
eaciery, performed in GET_CAT. PRG 
char 


Unique moat ee number On whachethe SUP. dbr is 
Micdexcaese lit 15 assigned at the time “a new 
supplier is entered in the SUP.dbf by 
NEW_SUPL.PRG. It is based upon an incrementing of 
the last 4-digits of the supplier's phone number. 
Lieminebementataon Continues until an unused 
number is found. (4 char) 


So 


TOTVAL 


ITYPEORDR 


Zee 


Zale 


Total value of a specific requisition or series of 
items. Value range oabenes BB 89s specific usage 
however, in general (.0O1 298 numeric). 


rder as assigne NEW_ aa R. PRG ('OPEN', 
TYP Scgt ° TFORM TUB. Tee sss" RRP OR ry. 


Zip code of the 2nd SUP Rees to appear on a 
supplemental memo which accompanies orders 
exceeding $1,000. 00. Zip Seow plea y UuSer, 
but rather read from ZIP field of of ee heen 
the user has chosen from the SUP. Ps alu 
assignment is made in the SUP_MEMO. PRG Ves ee 


Zip code of the 3rd ee to appear on a 
supplemental memo which accompanies orders 
exceeding $1,000.00. 2ZIP2 is mace input by user, 
but rather read from ZIP field of of coe record 
the user has chosen from the SUP. dbf. alue 
assignment 1s made in the SUP_MEMO. PRG Vee char) 
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APPENDIX E 


SRdb SOURCE CODE LISTINGS 


the t eee is a listing of the 40 SRdb modules, which 
abe Will Cem dt GBASELIT application uae. Baca module is 
prefaced by a prologue Cae the name, author, purpose, and 
a summary of interaction with other modules. 


BUY1_ITM. PRG 
BUY2_ITM. PRG 
CALC_REQ. PRG 


CHO_PRICEr PRG 


CONFIG. PRG 
DISP_REQ. PRG 
DIS1_REQ. PRG 
DIS2_REQ. PRG 
DIS3_REQ. PRG 
FILE_ITM. PRG 
FILE_REQ. PRG 
FORM_ORD. PRG 
GET_CAT. PRG 
GET_DATE. PRG 
GET_PRI. PRG 
GET_RDD. PRG 
IN_PONO. PRG 
IN_RCVD. PRG 
MAIN. PRG 
NEW_ACNT. PRG 


NEW_ORDR. PRG 
NEW_SUPL. PRG 
OPN_ORDR. PRG 
PRNT_SMO. PRG 
PRTSF36. PRG 
PRT1348a. PRG 
PRT13480. PRG 
PRT1348x. PRG 
PUB_ORD. PRG 
QUIT. PRG 
REQ_HDR. PRG 
RSS_ORD. PRG 
SEL_ACNT. PRG 
SEL_SUPL. PRG 
SHW_NRI. PRG 
STK_ORDR. PRG 
SUP_MEMO. PRG 
WARNING. PRG 
WARN_PRT. PRG 
WELCOME. PRG 


KKK KKK KKH KH KKK KK HHH KK KK KK HK KKK KH KKK HK KKH KKK KKK KK KK KKK KK KKK KK KKK KKKKKKKKKKKKKEKR 


Xx 
XK 
Xx 
x 
X 
Xx 
X 
X 
x 
x 
x 
Xx 
x 
x 
*% 
X 
xX 


Purpose: 


Module Name: BUY1_ITM.PRG 
Author: Tom Trotter 


This module is called by: FORM_ORD.PRG 


PUB_ORD.PRG 
STK.ORDR.PRG 


This module calls: NZ/A 


KKK HK KKH HK HHH HK KK KH HK HR KK KKK KKK KK KKK KKK KKK KKK KKK KKK KK KKKKK KKK KKKKKRKKKKKKKKKRKR 


do while ok <> '¥Y'! 
public descrp,unt,uprce,qunt, dist,stknum,nomenl,nomen2 


a2 2,24 SAY “ENTER ITEM TO BE ORDERED" 
® 3,24 SAY "------- o-oo oe oon nr ne 


e t 

g ? 

g t 

dist = ! 

2 5,14 SAY “Stock number:" 

2 5,29 GET stknum picture "aq!" 
® 7,14 SAY "Short name:" 

a2 7,27 GET nomenl 
a 
a 
a 


2 
Oo 
3 
(D 
~ 
_ 
Lt 


8,27 GET nomen2 
10,14 SAY "Distribution COG symbol:" 
10,40 GET dist picture “o'r” 


read 

descrp = nomenl + ™ ™ + stknum 
unt = ‘ea! 

uprce = 0.00 

qunt = 0 


®@ 12,14 SAY@"Unit of issue: 
®2 12,30 GET unt picture "dA" 
®2 14,14 SAY "Quantity:"™ 
®2 14,25 GET qunt picture "99999" 
1f typeordr <> 'PUB' 
d? 16,14 SAY "Unit price: $" 
®@ 16,28 GET uprce picture "99999.99" 
endif 
read 
set color to &mscolor 
®2 20,21 SAY "Is this order correct (Y/N)?"™ 
®? 20,51 GET ok picture "a!" 
set color to &ccolor 
read 


enddo 


return 


a2 


This module generates a screen for user input of a single 
item requisition. It is invoked in situations when only 
One item may be purchased per requisition # (e.g. 
making a DOD,GSA, or NPS RSS stock requisition). 


x 
x 
x 
X 
x 
x 
x 
when * 
x 
x 
x 
x 
x 
x 
X 
x 
x 


HH KH HHH HK HH HK KK HK HE HE HE HE IE HE IE HEE HE IE HE HE IE HK KE HEE HE KE IE HE HE KK KK KK KK EE IE KE KE TEE SE IE HE EE IE EE HEE EE EE EK EER RX 


* 
x 
x 
x 
% 
¥ 
x 
x 
Xx 
x 
x 
x 
x 
x 
x 
x 
x 
¥ 
x 


Purpose: 


Module Name: BUY2_ITM.PRG 
Author: Tom Trotter 


This module is invoked to accept multiple items per single 
requisition as in the case of an open purchase. 


The user 


is limited to only 12 items per requisition due to the 
physical size of a SF-36 document. There is currently no 


Each item is saved to the item.dbf after it is certified to 
be correct by the user. The process will stop when the 


user leaves the item description blank. 
This module is called by: OPN_ORDR.PRG 
This module calls: FILE_ITM.PRG 


public unt,uprce,totval,qunt, goahead 
totval = 0.00 
? 


do while counter < 13 


goahead = 

clear 

®2 1,4 SAY "Item #:* 

@1,12 SAY counter picture "##" 

@ 2,24 SAY “ENTER ITEM TO BE ORDERED™ 
@ 3,24 SAY “errr rr rr ttt rr ttt ress 


descrp = ! 
descrp2 = ' 
descrp3 = * 


®@ 5,1 SAY “Item description:" 

@ 6,1 GET descrp 

@ 6,41 SAY "<--Only this line is filed" 
@ 7,1 GET descrp2 

@ 8,l GET descrp3 

®@ 8,46 SAY "CBlank ends process.)" 

read 


if descrp = ' * .and. counter = 1 
do warning 
endi f 
if goahead 
if descrp = ' ! 
return 
endif 
unt = ‘teat 
uprce = 0.00 
qunt = 0 ; 
®@ 11,14 SAY "Unit of issue:" 
@ 11,30 GET unt picture "dA" 
213,14 SAY "Unit price: $" 
a2 13,28 GET uprce picture ™99999.99"™ 
2 15,14 SAY "Quantity:" 
@ 15,25 GET qunt picture ™99999" 


read 

set color to &mscolor 

2 20,21 SAY "Is this order correct (CY/N)?7"™ 
2 20,51 GET ok picture "oa!" 

set color to &ccolor 

read 

if ok = 'Y' .and. qunt <> Q 


totval = totval + Cuprce * qunt) 
do file_itm 
if counter = l 

select E 
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¥ 
X 
¥ 
X 
¥ 
X 
X 
¥ 
¥ 
Provision for generation of multiple SF-36's per requisition. ¥ 
X 
X 
¥ 
¥ 
¥ 
X 
X 
¥ 
¥ 


HH HH KKH HH HK RK KH KH KH KH HH HHH HH KKH HK HK KK HH KKK KK KKK KKK KK KKK KH KKK HK RK KKKKKKKKKKKRKK KKK 


use &template 

copy to &tempord 

use &tempord 
else 

select E 
endif 
append blank 
replace itemno with counter 
replace descrip with M->descrp 
replace descrip2 with M->descrp2 
replace descrip3 with M->descrp3 
replace unit with M->unt 
replace quant with M->qunt 
replace uprice with M->uprce 
counter = counter + 1 


if ok = "Y' .and. qunt = 0 
@ 22,15 SAY “Sorry, but ordering '0" quantity makes no sense." 
set color to &mscolor 
wait &wmsg 
set color to &ccolor 
endif 
endif 
enddo 
return 
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RHR KKK KR KK KARR KKK KKK KK KKK KKK KKK KKK KKK KKK KH HHH HHH HH HHH HHH HH HHH HK HHH HK HK KK KKK KK KK 


This 


X 

¥ Modul 
x 

X 

x 

¥ Purpo 
x 

¥ 

x 

x 

X 

x 

% 

x 

*¥ This 
x 

X 

* 

x 


public r 
reqno = 
if year( 
reaqno 
endif 
reqno = 
if typeo 
ok = ! 
ans = 
do whi 
set 
clea 
6, 
7, 
9; 
10 
ft 
13 
14 
15 
16 
13 
read 
set 
do c 
ca 


@ @& &@ &) @ &@) @ @) 


ca 


endc 

enddo 
else 

public 
checke 
check 
if che 

chec 
else 


e Name: CALC_REQ.PRG 


Author: Tom Trotter 


se: This module calculates and assigns the appropriate 
requisition number (Creqno) for each new requisition. 
An 8-digit reqno is comprised of a 4-digit julian date, 
and the last 4 digits will be the next serial number to 
be used for a specific account. The only exception is 
when the requisition is for transportation expenses, in 
which case the user 1S prompted to phone the NPS 
Comptroller to have the last 4 digits assigned. 


module is called by: NEW_ORDR.PRG 


module calls: NZA 
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eqno 
str(Cyear(Ctoday)-1980,1) 
today) > 1989 

= str(year(Ctoday)-1990,1) 


reqno + substr(str(julian+1000,49),2) 
rdr = 'XPORT'S 
t 


2 

he of <>ry 
scoreboard on 
- 

2UnSAY ™ 

20 SAY "H---- 9-9 ern en nr reer rrr rrr 

16 SAY "Transportation requests require issuance of a special" 
»,16 SAY "serial number directly from the comptroller. Phone" 
»,16 SAY "the NPS comptroller at x2257 to obtain.™ 

»24 SAY "Select an action: " 

Peo ony °%=----------—-------- a 

»,20 SAY "1. Ready to enter serial number" 

»,20 SAY "2. Abort to main menu" 


»43 GET ans picture "#" range 1,2 
scoreboard off 

ase 

se ans = 1 

xportno = ! : 


@ 13,0 clear 

@ 13,24 SAY “Enter Serial #:" 
@ 13,40 get xportno picture "XXXx" 
read 

set color to &mscolor 

@ 15,24 SAY "Correct (CY/N)?7" 
set color to &ccolor 

2 15,39 GET ok picture "da!" 
read 

reqno = reqno + xportno 

se ans = 2 

return to master 

ase 


checker 

r = A->lastused 

= val(checker) + l 
ck > val(A->hiserno) 
ker = A->loserno 


a 


Xx 
x 
x 
% 
x 
x 
X 
% 
% 
x 
x 
x 
x 
x 
x 
x 
% 
x 
X 


checker = str(€check, 4) 
endif 
reqno = reqno + checker 
endif 
return 


es) 
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Module Name: CHG_PRICE.PRG 
Author: Tom Trotter 


Purpose: This module allows the user to change the price of an item 
if a price revision 1S received. 


This module is called by: MAIN.PRG 


x 

x 

x 

x 

x 

Xx 

¥ 

xX 

* of ordering. 
x 

x 

xX 

¥ This module calls: NSA 
x 

x 

x 
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ans = * ! 

clear 

5,29 SAY nCHANGE ITEM PRICE" 
6,29 SAY “Sewn r ene eee ----- 


@ @) @) @) @ @) @) @) &) 


14,14 SAY “item." 

set color to &mscolor 

@2 17,28 SAY "Continue CY/N)?2" 
®@ 17,45 GET ans 

set color to &ccolor 


8,14 SAY oe module is ee when the item's final price" 
9,14 SAY "differs from that on the orginal requisition. 
10,14 SAY “will be shown all items associated with a specific" 
11,14 SAY "requisition # or purchase order #. Upon displaying"™ 
12,14 SAY “™each item, you will be given the opportunity to" 

13,14 SAY “change the item's unit price or scroll to the next" 


read 
if upperCans) <> 'Y! 
return 
endi f 
do while .T. 
ansl = 3 
set scoreboard on 
clear 
@ 8,20 SAY "Preparing to change an item price™ 
@ 16,32 SAY “Select: 
®@ 16,41 GET ans1 picture "#" range 1,3 
a 17,22 SAY S399 rr nr nnn rrr nnn 4 
@ 18,22 SAY oi 1. Show by requisition # ip 
219,22 SAY "{£ 2. Show by purchase order # ]" 
@ 20,22 SAY "CL 3. Return to main menu ies 
pee ae — — — — — — — — — ee = ” 
read 
set scoreboard off 
do case 
case ansl = 
kind = "Requisition  #*" 
select D 
use 


use &item index &reqno_1 
field = "D->reqno" 


case ansl = 2 
kind = "Purchase Order #" 
select D 
use 


use &item index &pono_i 
field = "D->pono"™ 
case ansl = 
return 
endcase 
ans2 = ! ! 
do while ans2 <> 'Y! 


oe 


It 1s common for items to 
be received at different prices than those used at the time 


x 
x 
x 
* 
% 
X 
x 
¥ 
¥ 
¥% 
x 
* 
*¥ 
% 
¥ 
¥ 


key = ? t 
clear 
® 9,15 SAY “Enter” 
®@ 9,22 SAY kind 
a2 9,38 SAY ™:" 
®2 9,41 GET key picture “"##FF FFE" 
211,15 SAY "Note - Blank ends process" 
read 
if key = ' ! 
return to master 
endif 
set color to &mscolor 
@2 14,28 SAY “Correct CY/N)?7" 
2 14,44 GET ans2 picture "a!" 
set color to &ccolor 
read 
enddo 
find &key 
if eof() .or. bof) 
14,0 clear 
14,23 SAY kind 
14,39 SAY "not in file." 
16,11 SAY "Please double check the" 
16,35 SAY kind 
16,53 SAY "and try again." 
set color to &mscolor 
wait &wmsg 
set color to &ccolor 
else 
do while &field = key .and. .not. eof) 
ans3 = 'N!* 
clear 
7,11 SAY "Requisition #:" 
7,27 SAY reqno 
9,11 SAY “Purchase Ord #:" 
9,28 SAY pono 
11,11 SAY “"Item:" 
11,18 SAY descrip 
13,11 SAY "Quantity:" 
13,22 SAY quant 
13,39 SAY "Unit Price: $" 
13,53 SAY uprice 
set color to &mscolor 
@ 16,21 SAY “Change unit price CY/N)7"% 
@ 16,48 GET ans3 
set color to &ccolor 
read 
if upperCans3) = 'Y' 
newprice = uprice 
@ 13,53 GET newprice picture "S####. ##™ 
read 
1f newprice <> 0 
ans4 =! ! 
@ 16,0 clear 
set color to &mscolor 
@ 16,25 SAY "Correct CY/N)?2"% 
@ 16,39 GET ans4 
set color to &ccolor 


OwWoowe 


OWMWWMWWMWOMHHH 


read 
if upperCans4) = 'Y! 
replace uprice with newprice 
endif 
else 
ansG = 'N* 


set color to &mscolor 

a2 21,21 SAY "Is item now FREE?" 
@ 21,46 GET ans4 

set color to &ccolor 

read 

if upperCans4) = 'Y! 


ao 


replace uprice with newprice 
endif 

endif 
skip -l 

endif 

skip 

enddo 
endi f 
enddo 
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X 
X 
% 
x 
% 
% 
x 
% 
x 
X 
x 
x 
x 
% 
X 


ans = 
clear 


2&2 & & e) &) e) 


4,32 SAY * 

Ir A SN) (I 1 
"This program has been preconfigured for your use" 
"and should not require reconfiguration unless" 
"transported to another system or department." 
"WARNING - Configuration changes should only be" 
12,26 SAY “made by personnel familiar with dBASE III." 


7,16 SAY 
8,16 SAY 
9,16 SAY 
11,16 SAY 


'N? 


set color to GBt/ ,Wt/ 


@ 15,23 SAY 


@ 15,52 GET ans 
set color to GRt/B,W+/7 ,B+t 


read 


if upperCans) <> 'Y' 
return 


endif 
clear 


restore from config.var 


Oe ee Ee eae ; 


= substr(c_sdrv,1,1) 
= substr(c_adrv,1,1) 


SAY "This program is configured as follows:" 


SAY "Department: ™ 
SAY c_dept 

SAY "Bldg:" 

SAY c_bldg 


10,17 SAY “Room: 
10,24 SAY c_room 

12,17 SAY “Telephone: " 
12,29 SAY c_phone 
14,17 SAY “Database disk locations: "™ 
15,37 SAY “Suppliers: ' * drive" 
15,49 SAY c_sdrv 

17,37 SAY “Accounts: ' ' drive" 
17,49 SAY c_a 

19,17 SAY “Color Monitor (T/F):" 
38 SAY c_clrmon 


drv 


t t 


set color to R/ ,R/W 


@ 21,17 SAY “Is this the correct configuration? (Y/N) "™ 


2 21,60 GET ans 
set color to GRt/B, Wt , Bt 


read 

if upper(Cans) = "N" 
ok = ‘ 
do while .not. ok 


2 6,30 GET c_dept 

®@ 8,24 GET c_bldg 

@ 10,24 GET c_room 
®@ 12,29 GET c_phone 
®@ 15,49 GET c_sdrv 


"Change Configuration (CY/N)7" 
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¥ 

Module Name: CONFIG.PRG ¥% 
x 

Author: Tom Trotter ¥ 
¥ 

Purpose: After displaying an appropriate warning banner, this module ¥ 
displays the current program system configuration and allows ¥ 

the user to change it. Changes are saved to a file of ¥ 

memory variables (config.var). ¥ 

X 

This module is called by: MAIN.PRG ¥ 
¥ 

This module calls: N/Z/A % 
¥ 

HH HH HK HH HH HH HH HHH HHH HH HH HH HK HHH HHH HHH HK HHH HK HHH HH HHH HHH HH HH HHH HHH KH HH HH KH HK KM KK KK 


read 


do while .not. Cupper(c_sdrv) = -'A' .or. upper(c_sdrv) 
upper(c_sdrv) = 'Ct .or. upper(c_sdrv) = 'D') 
2 15,49 GET c_sdrv 
read 
enddo 
®@ 17,499 GET c_adrv 
read 
do while .not. Cupper(c_adrv) = "A" .or. upper(c_adrv) 
upper(c_adrv) = 'Cf .or. upper(c_adrv) = 'D') 
@ 17,49 GET c_adrv 
read 
enddo 


@ 19,38 GET c_clrmon 
@ 21,60 GET ans 


read 
if upper(Cans) = 'Y! 
ok = : 
c_sdrv = (c_sdrv) + ':' 
c_adrv = (c_adrv) + ':' 
save to config.var all like c_xX 
endif 
enddo 
endif 
return 


deoa: 


HE HEHE HE HE HE HE HE HE HE HE HK EK HK KK KH HE HK EK HE KE HE HE EE HE KK EK HE HE HE HE HE HK HE KE HE HE HE EE HE HE IE HE EE KE EE KE EE HE EE EEE EK KER 


¥% ; 
* Module Name: DISP_REQ.PRG 
¥ 
* Author: Tom Trotter 
¥ 
* Purpose: This module presents the user with menus for use in the 
x selection of requisitions for display. The user is given 
x the option of screen or printer output. 
x 
* This module is called by: MAIN.PRG 
x 
* This module calls: DIS1_REQ 
x DIS2_REQ 
x DIS3_REQ 
x 
HE HE HK HH HK HE EE EE EK EE EE ER EE ER EE EE EK EK ER EK ER KR K KR 
do while .T. 
ans = * ° 
clear 
@ 7,28 SAY "DISPLAY REQUISITION" 
@ 8,28 SAY “Serr rrr rrr rr rr rrr " 
@10,15 SAY "This program will display one or more requisitions" 
@11,15 SAY “subject to user selection criteria. The list may™ 
@12,15 SAY "be sent to the screen or printer at the user's" 
@ 13,15 SAY “option. "™ 


set color to &mscolor 

®@ 16,27 SAY “Continue CY/N)7" 
®@ 16,44 GET ans 

set color to &ccolor 


read 

if upperCans) <> 'Y! 
return 

endif 

pick = 1] 

clear 


@ 2,27 SAY “DISPLAY REQUISITIONS" 
set color to &mscolor 

®@ 5,29 SAY "Selection: " 

set color to &ccolor 


@ 5,41 GET pick picture "#" range 0,3 
a 6,11 SAY 00 a a ah Sa SaaS 28 Ee SS BS S28 SE 8 2a Sees 2S 2228522 = 325 == 32222 - = = SO SSE 
aa 7 pl lesa s 0. Return to main menu — 
@ &,11 SAY "7 1. Display single requisition 7" 
ao9, LIOSAY “7 2. Display requisitions from specific account 7 
a 10,12 SAY “7 3. Display requisitions subject to account # & date /"™ 
o ll1,ll SAN = = > = SS = So ee ee a a a a a ee re ee ae 
read 
if pick = 0 

return 
endif 
outpt = 1] 


set color to &mscolor 
@ 14,27 SAY "Select Display: " 
set color to &ccolor 
@ 14,44 GET outpt picture "#" range 1,2 
a L527 SAV es == === 555-2 -——> > >= 
@ 16,27 SAY "74 1. Screen fn 
@ 17,27 SAY “7 2. Frinter (70 
a 18,27 BAY e=] == 222 > 25 S22 2222 
read 
public prtout 
if outpt 1 

prtout ar. 

Te 


else 
prtout 

endif 

do case 


LOZ 


oe 
x 
% 
x 
x 
x 
x 
x 
x 
x 
x 
x 
x 
x 
x 
x 


case 
do 
case 
do 
case 


endcase 


enddo 


Pick = 1] 
disl_req 
pick = 2 
dis2_req 
pick = 3 
dis3_req 


TORS 
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x 
x 
x 
x 
x 
% 
x 
x 
x 
x 
¥ 
x 
x 
x 


Module Name: DIS1_REQ.PRG 
Author: Tom Trotter 


Purpose: This module outputs the contents of one requisition as 


selected by the user input of a requisition #. 
This module is called by: DISP_REQ.PRG 


This module calls: REQ_HDR.PRG 
WARN_PRT.PRG 
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do while .T. 


clear 
key = % g 
@ 9,25 SAY "Enter Requisition #:" 
®@ 9,47 GET Key picture "“"#######F" 
®@11,28 SAY "CBlank ends process.)" 
read 
if key ='°* ! 
return 
endif 
counter = 0 
marker = 9 
endi f 
select C 
use 
use &req index &reqno_r 
find &key 
if eof () 
2 14,28 SAY "REQUISITION NOT FOUND" 


@ 16,18 SAY “Double check the requisition # and try again." 


else 

totcnt = 0 

value = 0.00 

totval = 0.00 

if prtout 
.do warn_prt 
clear 
@10,31 SAY "LOAD PRINTER® 
@ 2,37 SAY Wa" 
®2 14,25 SAY "PRESS ANY KEY TO CONTINUE” 
set device to print 
ant, O2SsAY © - 
wait ‘'! 

endif 

key2 = C->accno 

select A 


use 
use &accnt index &accno_a 
find &key2 


key3 = C~->supno 
select B 


use 

use &sup index &supno_s 

find &key3 

do req_hdr 

select D 

use 

use &item index &reqno_1 

find &key 

do while D~>reqno = C->reqno .and. .not. eof) 
counter = counter + 1] 
marker = marker + 1 
totcnt = totcnt + D->quant 
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x 
x 
x 
x 
x 
x 
X 
x 
% 
% 
x 
x 
x 
x 


value = D->quant * D->uprice 


totval = totval 


@Q 


+ value 


marker,l SAY counter picture "##" 


marker,5 SAY D->descrip 
re 


2 
2 marker,46 SAY 
@ marker,4/7 SAY 
® marker,57 SAY 
2 marker,66 SAY 
@ marker,/70 SAY 
if marker > 2] 
marker = 9 
wait &wmsg 
@ 9,0 clear 
endif 
skip 
enddo 
if counter <> 0 
marker = marker 
@ marker,15 SAY 
29 marker,28 SAY 
® marker,42 SAY 
@ marker,57 SAY 
endif 
if prtout 
® marker,70 SAY 


nS 

D->uprice picture "##, ###. ##" 
D->quant picture "#####" 
D->revd 

D->pono 


-and. .not. prtout 


+ 3 

"Total items:" 

totcnt picture "#####H™ 
"Total Value: $" 

totval picture "#, ###, ###. ##" 


chr(13) 


set device to screen 


else 


set color to &mscolor 


wait &wmsg 


set color to & ccolor 


endif 
endif 
enddo 


iOS 


This module displays all requisitions from a single account 
The SEL_ACCNT module is used to 
and this module will then skip through 
the req.dbf and item.dbf until all requisitions for the 


as specified by the user. 
select an account, 


IS2_REQ 


account have been displayed. 


This module is called by: DISP_REQ.PRG 
This module calls: SEL_ACNT.PRG 


REQ _HDR.PRG 
WARN_PRT .PRG 


HH HH HHH KKK KKK KKK KK KKK KKK KKK KK KKK KKK HK KKK KKK KKK KK KKK KKK KK KKK KKK KKK KKK KKKKK KKK 


x 

* Module Name: OD 

x 

* Author: Tom Trotter 

¥ 

* Purpose: 

x 

x 

x 

x¥ 

¥ 

x 

¥% 

x 

X 

¥* 

x 

x 
do sel_acnt 
key = A->accno 


select C 
use 


use &req index &accno_r 


find &key 

if eof() 
clear 
@ 15,18 
a 17,20 
ad 17,34 
a 19,20 
a 19,36 

else 
clear 
if prto 


SAY 
SAY 
SAY 
SAY 
SAY 


ut 


"No Requisitions on file for 
"FAccount Name:" 

A->aname 

"Account Number:"® 

A->accno 


do warn_prt 


clear 


@ 10,31 SAY "LOAD PRINTER" 

@ 12,37 SAY "&" 

214,25 SAY "PRESS ANY KEY TO CONTINUE"® 
set device to print 


21,0 
wait 
endi f 


SAY 


do while C->accno = A->accno .and. .not. eof) 
key2 = C->supno 


selec 
use 


t B 


use &sup index &supno_s 
find &key2 
counter = 0 


marke 
totcn 
value 
totva 


do req_hdr 


r 
it 


0 


= 0.00 


] = 


0 


.00 


key3 = C->reqno 


select D 
use 
use &item index &reqno_i 
find &key3 
endif 
do while D->reqno = C->reqno .and. .not. eof) 
counter = counter + 1 
marker = marker + 1] 
totcnt = totcnt + quant 
value = D->quant * D->uprice 


totval = totval + value 
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x 
x 
x 
x 
x 
x 
x 
x 
xX 
x 
x 
x 
x 
x 
x 
% 
% 


marker,1l SAY counter picture "###" 
marker,5 SAY D->descrip. 


a 

a 

@ marker,4%6 SAY 
@ marker,47 SAY 
@ marker,57 SAY 
®@ marker,66 SAY 
® marker,70 SAY 
if marker > 21 

marker = 9 


non 
D->uprice 
D->quant 
D->revd 
D->pono 


-and. .not. prtout 


set color to &mscolor 


wait &wmsg 


set color to &ccolor 


® 9,0 clear 
endif 
skip 
enddo 
if counter <> 0 
marker = marker 


ad marker,15 SAY 
® marker,28& SAY 
@ marker,42 SAY 
ad marker,57 SAY 

endif 

select C 

skip 

if .not. prtout 


ors 

"Total items:" 

totcnt picture "#####" 

"Total value: $" 

totval picture "#, ###, ###. ##" 


set color to &mscolor 


wait &wmsg 


set color to &ccolor 


endif 
enddo 
if prtout 


ad marker,70 SAY chr(13) 
set device to screen 


endif 
endif 
return 


PO? 
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xX 
xX 
X 
% 
X 
xX 
% 
xX 
xX 
xX 
xX 
% 
xX 
x 
X 
% 
xX 


Module Name: DIS3_REQ.PRG 
Author: Tom Trotter 


Purpose: This module displays all requisitions from a user selected 
account, subjyect to a screen on the origin date of the 
requisition. Output may be directed to the screen or the 


printer at the user's option. 
This module is called by: DISP_REQ.PRG 
This module calls: SEL _ACNT.PRG 


REQ_HDR.PRG 
WARN_PRT.PRG 
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hidate = today 
lodate = CTODC"10/1785") 
clear 
6,26 SAY Se-2- 2-2 enn e nnn nnn none “ 
8,26 SAY “Find Requisitions Created" 
10,34 SAY "Between" 
12,26 GET lodate 
12,36 SAY “and" 
12,43 GET hidate 
13,26 SAY “mm/dd/yy mm/dd/yy" 
read 
do sel_acnt 
counter = 0 
marker = 9 
key = A->accno 
select C 
use 
use &req index &accno_r 
find &key 
if eof() 
clear 
@ 8,25 SAY "No Requisitions Are on File For" 
@ 10,29 SAY “Account Name:" 
®@ 10,44 SAY A->aname 
®@ 12,29 SAY “Account Number:*® 
@?@ 12,46 SAY A->accno 
a 
a 
a 


VYWWWHHe2)e) 


14,36 SAY "Between" 
16,27 SAY lodate 
16,38 SAY “and"™ 
®@ 16,46 SAY hidate 
else 
clear 


if prtout 
do warn_prt 
clear 
®@ 10,31 SAY “LOAD PRINTER" 
@.12,37 SAY "*&™ 
2? 14,25 SAY “PRESS ANY KEY TO CONTINUE" 
set device to print 
@ ifG SAY ‘=! 
wait ‘'' 
endif 
do while C->accno = A->accno .and. .not. eof) 
1f C->rdate >= lodate .and. C->rdate <= hidate 
key2 = C->supno 
select B 
use 
use &suP index &supno_s 
find &key2 
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X 
x 
% 
X 
X 
% 
¥ 
x 
¥ 
xX 
¥ 
¥ 
x 
¥ 
xX 
xX 
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totcnt = 0 

value = 0.00 

totval = 0.00 

counter = 0 

marker = 9 

do req_hdr 

Key3 = C->reqno 

select D 

use 

use &item index &reqno_i 

find &key3 

do while D->reqno = C->reqno 
counter = counter + l 
marker = marker + 1 

marker,1 SAY counter picture "###" 

marker,5 SAY D->descrip 

marker,46 SAY "$" 

marker,4/7 SAY D->uprice 

marker,57 SAY D->quant 

marker,66 SAY D->revd 

marker,/70 SAY D->pono 

totcnt = D->quant + totcnt 


eand. 


@ @ @ @&) ee) ea) 


value = D->quant * D->uprice 

totval = value + totval 

if marker > 21 .and. .not. prtout 
marker = 9 


set color to &mscolor 


wait &wmsg 


set color to &ccolor 
®@ 9,0 clear 
endif 
skip 
enddo 
if counter <> 0 
marker = marker + 3 


®@ marker,15 SAY 
@ marker,28 SAY 
®@ marker,45 SAY 
®@ marker,60 SAY 
set color to &mscolor 
wait &wmsg 

set color to &ccolor 

endif 


"Total Items:" 


"Total Value: $" 


endif 
select C 
skip 
enddo 
1f prtout 


Q 


marker,/70 SAY chr(13) 


set device to screen 
endif 
if counter = 0 

clear 
8,25 SAY "No Requisitions Are on File For" 


@ @) 2) 2) 2) D2) D) & 


10,29 
10,44 
12,29 
12,46 
14,36 
16,27 
16,38 
16,46 


SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


"Account Name:" 
A->aname 

"Account Number:" 
A->accno 
"Between"™ 

lodate 

Nand" 

hidate 


set color to &mscolor 

wait &wmsg 

set color to &ccolor 
endif 


-not. 


totcnt picture "“"####F" 


eof () 


totval picture "#, ###, ###. ##" 


endif 
return 
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Module Name: FILE_ITM.PRG 
Author: Tom Trotter 


Purpose: This module is used to append a blank record to the item.dbf 
and fill in several fields from current memory variables. 


x 

x 

x 

x 

x 

¥ 

x 

¥ 

* This module is called by: BUY2_ITM.PRG 
* FORM_ORD.PRG 
% PUB_ORD.PRG 
* STK_ORDR.PRG 
* 

x 

¥ 

x 


¥ 
¥ 
¥ 
¥ 
¥ 
¥ 
£ 
¥ 
¥ 
¥ 
x 
¥ 
¥ 
This module calls: NZA ¥ 
x 
¥ 
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select D 

use 

use &item index &reqno_i,&pono_i 
append blank 

replace descrip with M->descrp 
replace unit with M->unt 
replace quant with M->qunt 
replace uprice with M->uprce 
replace reqno with M->reqno 
use 

return 


0 
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xX ¥ 
* Module Name: FILE_REQ.PRG * 
xX xX 
*¥ Author: Tom Trotter ¥ 
xX ¥ 
* Purpose: This module is used to append a blank record to the req.dbf ¥ 
¥ and fill in several fields from current memory variables. ¥ 
xX ¥ 
*¥ This module is called by: XPOR_ORD.PRG ¥ 
¥ FORM_ORD.PRG % 
¥ PUB_ORD.PRG xe 
* STK_ORDR.PRG X 
¥ OPN_ORDR.PRG ¥ 
¥ RSS_ORD.PRG % 
x x 
¥ This module calls: NZ/A % 
x x 
HE HE HE HE HE HE HEHE HE HE HE HE HE HEE HE HE HE EE HE HE EE EE HE EE EE EE EE HE HE HE EE EE EE EEE EE EE EE EE EE EE EE ERK RMR R RRR 
select C 

use 


use &req index &reqno_r,&accno_r 
append blank 
replace reqno with M->reqno 
replace accno with M->accno 
replace pri_code with M->pri 
replace supno with M->supno 
replace rdate with M->today 
if typeordr <> 'XPORT'* 

select A 

replace lastused with M->checker 
endif 
return 


pale 


HK HHH HK HK KKK KK KKK KK KK KKK KK KK KKK KK KK KKK KK KK KK KKK KKK KK KKK KK KK KK KK KHKK KKK KRKKKKKKKKK 


Module Name: FORM_ORD.PRG 


Author: Tom Trotter 


Purpose: 


from NSC Oakland. 


This module calls: GET_RDD.PRG 
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ans = ! 
clear 


@) @&) @&) @) &) 


¥ 
% 
¥% 
¥ 
¥ 
¥ 
¥ 
¥ 
* This module is called by: NEW_ORDR.PRG 
¥ 
¥ 
* 
¥ 
¥ 
¥ 
* 
¥ 
¥ 


11,135 SAY 


GET_CAT.PRG 
GET_PRI.PRG 
BUY1_ITM.PRG 
FILE_REQ.PRG 
FILE_ITM.PRG 


8,33 SAY “FORMS ORDER" 
O° 3S SNe ee ae ee 8 
"This program prepares the documents required to order" 
12,13 SAY "forms from NSC OAKLAND. If you desire to order forms" 
13,13 SAY "from NAVPUBFORMCEN Philadelphia, 


set color to &mscolor 

2 16,30 SAY "Continue (CY/N)?7% 
set color to &ccolor 

® 16,47 GET ans 


read 


if upperCans) <> 'Y! 


return 
endif 


public sendto,supno,route 


sendto = '(€00228) NSC OAKLAND, CA’! 
supno = 'llll' 

route = 'NOZ'* 

do get_rdd 


do get_pri 

do get_cat 

do buyl_itm 

public docid,signal,fund 


docid = 
signal = 
if uprce 


‘AOD’ 
TA? 
= 0 
'yY6! 


72S" 


do prt1348a 
do file_req 
do file_itm 
return to master 


deh 2 


This module coordinates the process of ordering forms 


do not continue.”™ 


x 
x 
Xx 
Xx 
x 
x 
x 
x 
x 
x 
Xx 
Xx 
¥ 
x 
x 
x 
Xx 
Xx 
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Author: 


Purpose: 


X 
X 
x 
X 
X 
x 
x 
X 
X 
X 
X 
X 
X 
X 
X 
x 
X 
® 
x 
x 


public supadr,rmko 
t 


ans = 
if typeordr 
do while 
ansl = 
clear 
0,20 
1,20 
S,11 
4,17 
Sine? 
PL 
8,17 


OWMIWWWWWWR2 A222) 


read 


Module Name: 


Tom 


GEIECAT PRG 
Trotter 


This module presents the user with a menu from which to 
select the appropriate category of items to be purchased. 
Other memory variable assignments are made based upon the 
category selected by the user. The user 1s also queried 
concerning the recurring nature of the demand. 


ans 


1 


SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


tell SAY 
iz, 11 SAY 
Pa,11 SAY 
Fo,11 SAY 
18,6 SAY “Note - All items on single requisition must be of same " 
18,61 SAY 
19,13 SAY 
Cleese ony 
21,35 GET ansl picture "#" range 1,6 


This module is called by: FORM_ORD.PRG 


OPN_ORDR.PRG 
PUB_ORD.PRG 

STK_ORDR.PRG 
XPOR_ORD.PRG 


This module calls: NZ/A 
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"OPEN .or. typeordr = 'STOCK'® 


<> ty? 


moELECT CATEGORY OF ITEMS TO BE PURCHASED" 
™) .. CONSUMABLE SUPPLIES Ce.g. subscriptions to periodicals" 
"cables, floppy disks, misc items for micro computers," 

"and other items having a useful life of < 1 year)." 
"2. MINOR PROPERTY (i.e. unit value > $ 1000. anda useful" 
"life of at least 2 years)."™ 

"3. PLANT PROPERTY (1.e. unit value > $ 1000.)" 

"G4. MAINTENANCE FOR MINOR PROPERTY" 

"5S. MAINTENANCE FOR PLANT PROPERTY" 

"6. OTHER PURCHASED SERVICES" 


"category" 


"Ce.g. cannot order hardware & software on the same order). 


"Selection:" 


set color to &mscolor 


@ 23,21 SAY 


BGorrect CY/N)7" 


@ 23,37 GET ans picture "a!" 
set color to &ccolor 


read 
enddo 
endif 
if typeordr 
ansl = 1 
endif 
if typeordr 
ansl = 7 
endif 
do case 
case ansl 
rmko = 
supadr 
case ansl 
rmko = 
supadr 
case ansl 
rmko = 
supadr 
case ansl 


"FORM! .or. typeordr = 'PUB' .or. typeordr = 'RSS$' 


"XPORT! 


= *7T* + trimCA->accno) + '00'° 


= 'W' + trimCA->accno) + ‘MA! 


t 
= 'W' + trimCA->accno) + ‘PA’ 


eS 


X% 
X 
X 
*% 
% 
X 
X 
X 
X 
X 
x 
® 
x 
x 
x 
X 
X 
X% 
X% 
a 


rmko = 'P* 
t 


supadr = 'P* + trim€A->accno) + '"MM* 
case ansl = 5 
rmko = ‘'P* 
supadr = 'P* + trim€A->accno) + 'PM' 
case ansl = 6 
rmko = ‘*Q* 
supadr = 'Q* + trimC€A->accno) + 'QS' 
case ansl = 7 
rmko = ‘'L* 
supadr = ‘Lt + trim€A->accno) + '00° 
endcase 
1f A->research 
supadr = A->accno 
endif 


public demand 
1f typeordr = 'RSS$° 


demand = 'R'°* 
else 
ans =! t 
ans2 = * * 
Aoewhiile apns2zrc>. 
clear 


®@ 8,29 SAY "SPECIFY DEMAND TYPE® 
@09;,29 SAY.) .-—-..55 - 7 2 eee 
a ia 18 SAY “Is there a recurring demand for the" 
@12,18 SAY “items/services on this requisition (CY/N)7" 
®@ 12,62 GET ans picture "ag!" 
read 
set color to &mscolor 
®@ 15,30 SAY "Correct CY/N)7" 
®@ 15,46 GET ans2 picture "a!" 
set color to &ccolor 
read 
if ans = of! 
demand = '*R°* 
else 
demand = 'N*? 
endif 
enddo 
endif 
return 
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GET_DATE.PRG 


x 
X 
x 
x 
x 
x 
x 
% 
x 
x 
x 
X 
x 
x 
x 
x 
x 
x 


Author: 


Purpose: 


Module Name: 


date from within dBASE, 


current date. 


Tom Trotter 


Since dBASE III does not allow one to change the system 
this module allows the user to 
update the memory var (TODAY) if it 1S in error. 
will allow generation of documents dated other than the 
After the desired date is confirmed by the 
user, a julian date is calculated. Leap years are accounted 


for in the julian date calculation. 


clear memory 


today = date() 
do while .T. 
ans =! ! 
clear 
@ 5,28 SAY "CONFIRM TODAY'S DATE" 
@7,33 SAY today 
a 9,31 SAY "CY/N)7"% 
@ 9,39 GET ans 
read 
1f upperCans) <> 'Y! 
clear 
@ 5,28:-SAY "ENTER TODAY'S DATE" 
@ 7,33 GET today picture "aD" 
@ 8,33 SAY “"MM/DD/YR*™ 
@ 15,10 SAY "Note - Leading zeros are required for single digit values." 
read 
else 
mon = month( today) 
do case 
case mon = l] 
julian = 0 
case mon = 2 
julian = 3l 
case mon = 3 
julian = 59 
case mon = 4 
julian = 90 
case mon = 5 
julian = 120 
case mon = 6 
julian = 150 
case mon = 7 
julian = 181 
case mon = 8 
julian = 212 
case mon = 9 
julian = 243 
case mon = 10 
julian = 273 
case mon = ll 
julian = 304 
case mon = 12 
julian = 334 
endcase 


This module calls: 


This module is called by: MAIN.PRG 


N 7A 
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julian = julian + day(today) 

if intCyear(today)/4) * 4 = year(today) .and. month(today) > 2 
julian = julian + 1 

endif 
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It also 


*% 
x 
x 
x 
x 
x 
% 
x 
x 
x 
x 
x 
x 
x 
x 
x 
x 
x 


save to date.var all except ans 
return 
endi f 
enddo 


dedi 
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x 
x 
x 
x 
x 
% 
x 
x 
x 
x 
x 
x 
x 
x 
x 
% 
x 
x 
x 
x 


public pri 


¥ 

Module Name: GET_PRI.PRG x 
x 

Author: Tom Trotter ¥ 
¥ 

Purpose: This module presents the user with a menu for the selection ¥ 
of an order priority. If the user selects pri "A" he is ¥ 

warned that it requires approval by the NPS superintendent. ¥ 

Other memory variables are assigned values for document * 
generation based upon the user's selection. x 

x 

This module is called by: FORM.ORD.PRG X 
OPN_ORDR.PRG X 

PUB_ORD.PRG X 

STK.ORDR.PRG X 

XPOR_ORD.PRG ¥ 

x 

This module calls: N/Z/A X 
x 

KH KKH KKH HK HHH HK HHH HH HH HHH HHH HHH HE HE HE EH HEE HE HH EE EE EEE KEK KKH KK KH KKK KKK KKK KKK 


ok = ' 
Ol = *_' 
pri = ‘ct 
do while .T. 
clear 
a2 4,30 SAY "ORDER PRIORITY" | 
@ 6,12 SAY "A - Requirement is immediate and without the material" 
@ 7,16 SAY "required, the activity 1s unable to perform one" 
@2 8,16 SAY "or more of its primary missions." 
@ 9,17 SAY "™CNote: Requires NPS Superintendent approval)" 
we iisl2 SAY mB - Requirement is immediate or it is known that such" 
@ 12,16 SAY ™a requirement will occur in the immeidate future." 
a 14,12 SAY "C - Routine requirement." 
@217,19 SAY "Select appropriate order priority:" 
217,55 GET pri picture “ag!" 
read ~ 
set color to &mscolor 
219,30 SAY "Correct CY/N)7"% 
219,46 GET ok picture “a!"™ 
set color to &ccolor 
read 
if ok = '"Y* .and. pri <> ‘'A* 
okl = 'Y'* 
endif 
if ok = 'Y' .and. pri = ‘A 
clear 
Bia 59 SAY "NOTICE" 
oS ———— ——————— . 


2 10,10 SAY “A priority code of °A' 
set color to &mscolor 

2 14,18 SAY “Have you obtained approval (Y/N)7" 
@ 14,53 GET okl picture "ad!" 

set color to &ccolor 


requires NPS 


read 
endif 
if ok = "Y' .and. okl = 'Y' 
public ms_code,priority 
good = .F. 
do case 
case pri = ‘A* 
ms_code = '‘W'* 
Priority = '08' 
good = : 
case pri = "B® 
ms_code = ‘'T* 


Priority = ‘10° 


eae 


Superintendent approval.” 


good = .T. 
case pri = ‘'C! 
ms_code = ‘T' 
priority. —- i> 
good = : 
endcase 
1f good 
return 
endif 
endif 
enddo 


ine 
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Module Name: GET_RDD.PRG 
Author: Tom Trotter 


This module 1s called by: FORM_ORD.PRG 
OPN_ORDR.PRG 
PUB_ ORD.PRG 
STK_ORDR.PRG 
XPOR_ORD.PRG 


X 
¥ 
¥ 
¥ 
¥ 
¥ 
¥ 
¥ 
¥ 
¥ 
¥ 
¥ 
¥ 
¥ 
¥ 
¥ 
* This module calls: N*Z/A 
¥ 

¥ 


public rdd_yes,rdd 

rdd = l 

ans =! ? 

do while .T. 
rddyes = .F. 
clear 


2 6,24 SAY "REQUIRED DELIVERY DATE CRDD)" 

@ 8,16 SAY "This 1s an optional 3 digit Julian date when the® 
®@ 9,16 SAY "material or service 1S required. 
@10,16 SAY "assist in the placement of the order." 


set color to &mscolor 


@12,22 SAY "Desire to specify an RDD (CY/N):" 


212,55 GET ans 
set color to &ccolor 


read 

if upperCans) = 'Y' 
set scoreboard on 
rddyes = .T. 
ok = t t 


@ 14,30 SAY “Enter RDD:" 


2 14,42 GET rdd picture "###" range 1,366 


read 
set scoreboard off 
®@ 194,42 SAY rdd picture "“"#t#" 
set color to &mscolor 
@ 16,30 SAY "RDD Correct (Y/N):" 
2 16,49 GET ok 
set color to &ccolor 
read 
if upper(Cok) = 'yY' 
return 
endif 
else 
return 
endif 
enddo 


iis 


Purpose: This module queries the user for a "required delivery date." 
It will accept RDD values from 1 to 366. 
to specify an RDD, RDD_YES will be given a value of .T., 
the memory variable RDD will be assigned a value (1-366). 


If the user opts 
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It 1s used to" 


x 
xX 
x 
X 
X 
x 
% 
x 
x 
x 
Xx 
5 
X 
x 
X 
X% 
x 
X 
X 
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x x 
*¥ Module Name: IN_PONO.PRG xX 
X x 
* Author: Tom Trotter ¥% 
x x 
* Purpose: This module permits the user to write a purchase order X 
¥ number into the PONO field of the ITEM.dbf. This cannot X 
xX be done at the time the requisition 1S originated, X 
¥ because the PONO is not then known. ¥ 
x x 
¥ This module is called by: MAIN.PRG ¥ 
X x 
* This module calls: NZ/A ¥ 
x x 
KK HK HH HH HK HE HE EE KKK EE EK EK EK KKK KK KKK KKK KKK KKK KKK RK RR KK 
ans = 'ty' 

clear 

@2 6,23 SAY “INPUT PURCHASE ORDER NUMBER (PO#)" 

O75 25 SA... - + +See ee ee ° 

®2 9,11 SAY "Once a PO# is received from supply, this program permits" 

210,11 SAY “entry of the PO# for each item ordered. Since not all™ 

211,11 SAY “items on the original requisition may have been ordered" 

@412,11 SAY “by supply on the same purchase order, you are requested" 

213,11 SAY "to separately confirm each item on the purchase order." 


set color to &mscolor 
®@ 16,30 SAY "Continue CY/N)?®% 
@ 16,47 GET ans 
set color to &ccolor 
read 
if upperCans) <> 'yY' 
return 
endif 
ans =! ! 
do while .fT. 
clear 
key = ft t 
Qel;5s5 SAY ™ 
cy ee oe 
@ 3,22 SAY “Requisition #y :" 
®@ 3,39 GET Key picture "DFttFFFHE™ 
®@ 4,26 SAY “CBlank ends process)" 


read 
if key = * * 
return 
endif 
tempid = * : 


@ 6,22 SAY “Purchase Order #:*" 
a2 6,41 GET tempid picture "dDFttFFHFF" 
set color to &mscolor 
®@ 8,27 SAY “Correct CY/N)7" 
®@ 8,43 GET ans 
set color to &ccolor 
read 
if upper(Cans) = 'Y' 
select D 
use 
use &item index &reqno_i,&pono_i 
find &key 
if eof€@) .or. bof) 
a? 8,0 clear 
@ 10,29 SAY "REQUISITION NOT IN FILE" 
212,14 SAY "Please double check the requisition # and try again." 
set color to &mscolor 
wait &wmsg 
set color to &ccolor 
else 
do while D->reqno = Key .and. .not. eof() 


20) 


7,18 SAY "Requisition #:" 
7,34 SAY D->reqno 
9,18 SAY "Item:" 
9,25 SAY D->descrip 
11,18 SAY "Quantity:" 
11,29 SAY D->quant 
13,18 SAY "Unit Price:" 
13,31 SAY D->uprice 
set color to &mscolor 
2 18,14 SAY "Is this item on purchase #" 
2 18,492 SAY tempid 
218,53 SAY "CY/N)7"% 
2 18,61 GET ans2 
set color to &ccolor 
read 
if upperCans2) = 'yY* 
replace pono with M->tempid 
endif 
skip 
enddo 
endif 
endif 
enddo 


OOWaeWe) ee 


21. 
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¥ 

* Module Name: IN _RCVD.PRG 

x 

*¥ Author: Tom Trotter 

¥ 

* Purpose: This module permits notation of receipt of items in the 
¥ RCVD field in the ITEM.dbf. The item may be 

¥ specified by requisition # CREQNO) or purchase order # 
¥ CPONO) 

x 

¥ This module is called by: MAIN.PRG 

¥ 

¥ This module calls: NZQA 

x 
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6,16 SAY "You will be given the opportunity to indicate if" 


currently not marked as received," 


8,16 SAY "have now been received. Items reviewed will be" 
9,16 SAY “grouped by requisition number or purchase order" 


ans = 'yY'* 

clear 

ae3,30 SAY “INPUT RECEIPT STATUS” 

®2 4,30 SAY “errr r rrr rrr ts rrrc--- " 

a 

@ 7,16 SAY “specific items, 

a 

a 

@ 10,16 SAY "number at your option." 


set color to &mscolor 


@ 12,30 SAY "Continue CY/N)?2" 


@ 12,497 GET ans 
set color to &ccolor 
read 
if upper(Cans) <> 'Y! 
return 
endif 
do while .T. 
clear 
set scoreboard on 


a2 7,22 SAY "PREPARING TO MARK ITEMS RECEIVED" 


ansl = 1 
@ 16,32 SAY “Select:"™ 
@?@ 16,491 GET ansl picture "#" range 1,3 
@ 17,22 SAY “------------- 
@ 18,22 SAY "CC 1. Show by requisition # Va. 
@19,22 SAY "C€ 2. Show by purchase order # J" 
@ 20,22 SAY "C€ 3. Return to main menu is 
Quaiteczcesn 6 -——— 
read 
set scoreboard off 
do case 
case ansl = 1 

kind = "Requisition n 

select D 

use 


use &item index &reqno_i 


field = "D->reqno" 


case ansl = 2 
kind = “Purchase Order #" 
select 
use 


use &item index &pono_i 


field = "D->pono" 
case ansl = 3 

return 

endcase 

ans2 = '¥Y'° 

key = '* ' 

clear 

0 9,15 SAY “Enter? 

@ 9,22 SAY kind 


e2e2 


KOK OK OOK OOK OOK OOK OK OOK OK OK OOK OOK OK OK 


@9,38 SAY ™:" 
2 9,41 GET key picture "DF#tHttsHFs" 
@11,15 SAY "Note - Blank ends process" 


read 

if key = ! : 
return to master 

endif 


set color to &mscolor 
@ 14,28 SAY "Correct CY/N)?" 
®@ 14,44 GET ans2 
set color to &ccolor 
read 
if upperCans2) = 'Y'* 
find &key 
if eof() .or. bof () 
14,0 clear 
14,24 SAY kind 
14,40 SAY ™ not on file." 
16,14 SAY "Please double check the " 
16,38 SAY kind 
16,54 SAY *™ and try again." 
set color to &mscolor 
wait &wmsg 
set color to &ccolor 
clear 
else 
counter = 0 
do while &field = key .and. .not. eof) 
1f .not. rcvd 
counter = counter + 1 


@ @) @) @) @) @) 


3,18 SAY "The following item shown as not received" 
7,11 SAY "Requisition #:" 
7,27 SAY reqno 
9,11 SAY "Purchase Ord #:*" 
9,28 SAY pono 
11,11 SAY "Item: * 
11,18 SAY descrip 
13,11 SAY "Quantity: " 
13,22 SAY quant 
13,39 SAY "Unit Price: $* 
13,53 SAY uprice 
set color to &mscolor 
@19,21 SAY "Has this item been received (Y/N)?" 
@ 19,56 GET ans3 
set color to &ccolor 
read 
if upper(Cans3) = 'Y!? 
replace rcvd with .T. 
endif 
endif 
skip 
enddo 
if counter = 0 
clear 
if ansl = 1 
@12,18 SAY "All items for requisition #" 
@ 12,47 SAY &key 
else 
@12,16 SAY “All items for purchase order #" 
@ 12,47 SAY &key 
endif 
214,18 SAY "have been previously marked as received." 
set color to &mscolor 
wait &wmsg 
set color to &ccolor 
endif 
endif 
endif 


OWWMWMIMIWNMHOHWNH2a) 


Zs 


clear 
enddo 


oo 
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a 
x 
x 
x 
x 
x 
x 
Xx 
x 
xX 
X 
X% 
x 
x 
X% 
x 
x 
x 
x 
x 
Xx 
x 
x 
x 
x 
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Module Name: MAIN.PRG 
Author: Tom Trotter 


Purpose: Since this module is the first to be invoked, it is refered 
to in dBASE III as the master module. It sets up the 
initialization of key memory variables and presents the 


main menu for program selection. 
This module is called by: N/A 


This module calls: WELCOME.PRG 
CONFIG.PRG 
GET_DATE.PRG 
NEW_ORDR.PRG 
IN_PONO.PRG 
IN_RCVD.PRG 
SHW_NRI.PRG 
DISP_REQ.PRG 
CHG_PRIC.PRG 
NEW_SUPL .PRG 
NEW_ACNT.PRG 
QUIT .PRG 
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set help off 
set talk off 
set delete on 
set safety off 
set console on 
set escape off 
do welcome 

do config 

do get_date 

do while .T. 


clear all ; j 
public today, julian,wmsg 
wmsg = 'f 


Press any key to continue... 


public sup,sname_s,supno_s, template, tempord 


public item,reqno_i,pono_i,req,reqno_r,accno_r,accnt,aname_a,accno_a 


restore from date.var additive 
public c_dept,c_bldg,c_room,c_phone 
restore from config.var additive 
sup = c_sdrv + "sup" 

sname_s c_sdrv + "sname_s" 
supno_s c_sdrv + “"supno_s" 
template = c_adrv + "template" 
tempord = c_adrv + “tempord.dbf" 


item = c_adrv + "item" 
reqno_i = c_adrv + "reqno_i"™ 
Ppono_i = c_adrv + "pono_i" 
req = c_adrv + "req" 

reqno_r = c_adrv + "reqno_r"™ 
accno_r = c_adrv + "accno_r" 
accent = c_adrv + "accnt"™ 
aname_a = c_adrv + “aname_a"™ 
accno_a = c_adrv + "accno_a"™ 


TY Ha = c_adrv + "fy.id"™ 

public fy 

restore from &fy_id additive 

public ccolor,mscolor,errcolor 

1f c_clrmon 
store "GRt/B,Wt/7 ,Bt™ to ccolor 
store "GRt/ ,GRt/7 ™ to mscolor 
store "R+™ to errcolor 


eZ 


x 
x 
x 
x 
x 
x 
x 
Xx 
x 
x 
Xx 
x 
Xx 
x 
x 
Xx 
% 
x 
X 
x 
x 
x 
x 
x 
x 
* 


else 


store "Wt 
store "Wt/ 
store "Wt 


endif 
set col 
choice 


or to &ccolor 


" to ccolor 
*" to mscolor 
" to errcolor 


set scoreboard on 


clear 
3,10 
4,10 
5,10 
6,190 
7,190 
8,10 
9,10 
10,10 
11,10 
12,10 
S500 
14,10 
15,10 
16,10 
17,10 
18,10 
19,10 


@ &@ @& & &) &) &) @) &) @) @) @) &) @) @ OO) &) 


SAY “IsSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSStTSTTaese2SzeSessszee=qzK 
SAY "= =" 
SAY "= SUPPLY REQUISITION DATABASE = 0 
SAY "= ae 
SAY “"saSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSssqssesqssqqsassss=szeosn 
SAY "= C2 
SAY "= ~ WEXit =" 
SAY "= 1. Place an order =" 
SAY "= 2. Update files with purchase order # =" 
SAY "= 3. Mark items received =" 
SAY ‘t= G. List items not yet received =" 
SAY "= 5. Display a specific requisition =" 
SAY "= 6. Change an item price =" 
SAY "= 7. Enter a new supplier =" 
SAY "= 8. Create a new account = 
SAY "= ne 
SAY "S=S=SS2S2S2S2S25252525=25==2=Your choice > “s====s = ==] = == === = = ae = = oe ee ee 


019,41 GET choice picture 


read 
set sco 
do case 
case 
do 
case 
do 
case 
do 
case 
do 
case 
do 
case 
do 
case 
do 
case 
do 
case 
do 
endcase 
enddo 


reboard 


choice = 
quit 
choice = 
new_ordr 
choice = 
in_pono 
choice = 
in_revd 
choice = 
shw_nri 
choice = 
disp_req 
choice = 
chg_pric 
choice = 
new_supl 
choice = 
new_acnt 


of f 


on Hn MT BH WW NF 


'#" range 0,8 


AG 
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Purpose: 


This modul 


This modul 


MK OK OOK OOK OK OOK OOK OOK OOK OOK OOK OK OOK OK OK 


do while ans 


@ 3,28 SAY 
®@ 4,28 SAY 
@ 6,14 SAY 
@ 7,14 SAY 
a2 9,17 SAY 
@ 10,17 SAY 
@ 11,17 SAY 
@ 12,17 SAY 
®2 14,14 SAY 
@ 15,24 SAY 
@ 16,24 SAY 
219,27 SAY 
@ 19,44 GET 


if upper(Can 
return 
endif 
enddo 
select A 
use 
use &accnt in 
append blank 
do while .T. 
ans = ! 
clear 
i255 SAY 
2725 SAY 
Se2e SAY 
5,37 GET 
Pee SAY 
7,39 GET 
9,22 SAY 
9,29 GET 
Ll; 2emSAY 
11,47 GET 
LSpeee AY 
13,59 GET 
14,52 SAY 
14,59 GET 
l gee Oar 
15,43 GET 
I6;.22 SAY 
read 
if lastused 
replace l 
endif 
@19,27 SAY 
@ 19,43 GET 
read 


@) @ 


VUVVMVVUMUWUWUVOHO2 & & 


Module Name: NEW _ACNT.PRG 
Author: Tom Trotter 


This module allows the user to set up a new account by 
appending a blank record to the ACCNT.dbf and filling 


in all fields. 


e is called by: MAIN.PRG 
SEL_ACNT 


e calls: NZ/A 
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<> ryt 


"In order to enter a new account you must have" 
"the following information available at this time:" 
"Account Name" 

"Account # Cassigned by NPS Comptroller)" 
"Serial # range assigned to account" 

"Is it a research account?" 

"WARNING - If you do not understand any of the" 
"above items, seek assistance and do" 

"not continue further at this time." 

"Continue (Y/N)?7" 

ans picture "“"g!" 


s) = 'N? 


dex &aname_a, &accno_a 


"Account Name:" 
aname picture "Q!" 
"Account Number:" 
accno picture "gq!" 
"Code:" 
code picture "a!" 
"Research Account (T/F):" 
research picture "L" 
"Requisition Serial # Range - From:" 
loserno picture "9999" 
"To : vf? 
hiserno picture "9999" 
"Last Serial # Used:" 
lastused picture "####" 
"Cleave blank if account never used yet)" 


astused with loserno 


"Correct CY/N)7" 
ans 


2) 


X 
x 
% 
x 
x 
x 
% 
% 
X 
x 
x 
x 
x 
X 
x 


if upperCans) = 'Y! 
return 
endi f 
enddo 


en 
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¥ 
x 
¥% 
* 
x 
¥* 
* 
% 
% 
¥ 
* 
* 
* 
x 
* 
x 
x 
* 
¥ 
¥ 
* 
x 


Module Name: NEW_ORDR.PRG 
Author: Tom Trotter 


Purpose: This module serves as the menu driver for the activities 
required in the generation of new orders. 
value to the public memory variable TYPEORDR based upon 


the user's selection. 
This module is called by: MAIN.PRG 


This module calls: CALC_REQ.PRG 
FORM_ORD.PRG 
OPN_ORD.PRG 
PUB_ORD.PRG 
RSS_ORD.PRG 
SEL_ACNT.PRG 
STK_ORD.PRG 
XPOR_ORD.PRG 
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do while .T. 
order = 7 
clear 


set scoreboard on 


It assigns a 


x 
* 
% 
* 
x 
* 
x 
x 
¥ 
* 
x 
x 
x 
* 
x 
x 
x 
x 
* 
x 
x 
x 


NSC Oakland, or GSA" 


Federal Express)" 


2 3,29 SAY "PLACE AN ORDER*™ 

®2 5,10 SAY "The purpose of this program is to generate the appropri" 
@ 5,65 SAY “ate*™ 

®2 6,10 SAY “supply forms (DD 1348-6 &/or SF 36) to place an order." 
@ 9,24 SAY "Select the type of order" 

@2411,10 SAY "l. Open Purchase" 

®@212,10 SAY "2. Standard stock items from NPS RSS, 

®@13,10 SAY "3. Standard forms from NSC Oakland" 

®2 14,10 SAY "G4. Publications from NAVPUBFORMCEN Phil" 

@ 15,10 SAY "5. $$ Reimbursement to NPS Ready Supply Store" 

2 16,10 SAY "6. Transportation of material (e.g. 

®@17,10 SAY "7. Return to main menu" 

®@ 20,26 SAY "Your order:" 

@ 20,41 GET order picture "#" range 1,7 

read 


set scoreboard off 
public typeordr,service 
service = substr(fy,2,1) 
typeordr = ' ! 
if order <> 6 .and. order <> 7 
do sel_acnt 
do calc_req 
endif 
do case 
case order = 1] 
typeordr = 'QPEN'® 
do opn_ordr 
case order = 2 
typeordr = 'STOCK' 
do stk_ordr 
case order = 3 
typeordr = 'FORM! 
do form_ord 
case order = 4 
typeordr = 'PUB! 
do pub_ord 


case order = 5 
typeordr = 'RSS$' 
do rss_ord 

case order = 6 


typeordr = 'XPORT' 


rs 


do 
do 
do 
case 


sel_acnt 
calc_req 
xpor_ord 
order = 7 


return to master 


endcase 


enddo 


eu 
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x 
x 
x 
x 
x 
x 
x 
x 
x 
x 
x 
x 
x 
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ans 


Module Name: 
Author: 


Purpose: 


This module calls: 


do while ans 


use 


NEW_SUPL.PRG 


Tom Trotter 


This module allows the user to enter a new supplier by 
appending a blank record to the SUP.dbf and filling in 
all fields. 


This module is called by: MAIN.PRG 


SEL_SUPL .PRG 
N ZA 
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<> tyr 


"INPUT A NEW SUPPLIER" 

Li) a ei ee vt 
"In order to input a new supplier, you must have the" 
"following information available at this time:" 
"Supplier Name" 

"Address" 

"Phone #" 

"The phone number 1S mandatory. Do not proceed unless" 
"you are ready to enter the above information." 
"Continue (Y/N) 7" 

ans picture "a!" 


use &sup index &supno_s,&sname_s 

append blank 

do while 
ans = ! 
clear 


@ @) @) @) ©) @) @) @) @) @) @) @) ©) @) @) @) 


o,27 
4,27 
6,15 
6,23 
8,15 
8,25 
10,15 
PO a2 
10,38 
10,46 
10,52 
10,58 
12,15 


tempid 
if val(tempid) > 9970 


templ 


endif 
new = recno() 
1f ans 


a 


SAY 
SAY 
SAY 
GET 
SAY 
GET 
SAY 
GET 
SAY 
GET 
SAY 
GET 
SAY 
GET 
GET 
SAY 


SAY 
GET 


= SU 


d= 


= ty 


NEW SUPPLIER™ 
"Name ° 9 
sname 
"Address:" 
addr 
"City: 
city 
"State: 
state picture "a!" 
"7ip:" 
zip 
"Phone: ( ys 
areacode picture "“"d###" 
fone picture “Otk#-#F HE" 
"Note - Phone # is mandatory" 


"Ts this correct?" 
ans picture "dad!" 


bstr(fone,4) 
*9000' 


ies 


x 
X 
x 
x 
x 
X 
x 
x 
x 
x 
x 
x 
x 
X 
X 


tempid = str (val(tempid) + 1,4) 

go top 7 

find &tempid 

if eof () .or. bof 0) 
go new 
replace supno with tempid 
®@ 14,0 clear 
2 16,24 SAY “Assigned Supplier #:" 
®@ 16,46 SAY supno 
wait &wmsg 
return 

endif 

endif 
enddo 


ir 
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Module Name: 
Author: 


Purpose: 


MK OK OK OK DK OOK OK OOK OOK OK OOK OOK OOK OK OOK OOK OOK OOK OOK OK OOK OK OOK OOK OOK OOK OOK 


Tom Trotter 


This module is called by: 


This module calls: 


OPN_ORDR.PRG 


It invokes several subordinate modules to 


MAIN.PRG 


SEL_SUPL.PRG 
GET_RDD.PRG 
GET_PRI.PRG 
GET_CAT .PRG 
BUY2_ITM.PRG 
PRTSF36.PRG 
PRT13480.PRG 
SUP_MEMO.PRG 
FILE_REQ.PRG 


= =e Se se ee ee ee ee ee ee ee ee ee oe 


6,12 SAY trae program prepares the necessary documents to execute" 


A DOD 1348 (6 part) will always" 


8,12 SAY "be produced, and if the item description 1s too long" 

9,12 SAY "Cgreater than 22 characters), or if there 1S more than" 
"one item being ordered, a SF 36 will also be prepared." 
11,12 SAY "If the total order value exceeds $1,000., 
12,12 SAY "will be prepared listing at least 2 alternative sources," 
13,12 SAY "unless this procurement request is being accompanied by” 


a memorandum" 


A maximum of 10 separate" 


15,12 SAY “™line items may be ordered on a single requisition." 


ans = * * 

clear 

@ 3,27 SAY "OPEN PURCHASE REQUISITION® 
a G, 27 SAY ——_—_- oa 

@ 

®@ 7,12 SAY "an open purchase request. 
a 

a 

@10,12 SAY 

a 

a 

a 

®@ 14,12 SAY "a sole-Source justification. 
a 

@17,30 SAY "Continue (CY/N)7" 

®@ 17,47 GET ans 


read 


if upperCans) <> 'Y! 


return 
endif 
do sel_supl 
do get_rdd 
do get_pri 
do get_cat 
public counter 
counter = 
do buy2_itm 


public docid,signal, fund,sf36 


docid = ‘'AOE'* 
Signal = 'A' 
fund = '2S' 
select E 

use &tempord 
go bottom 


if recno() = 1 .and. 


sf36 = 
else 

sf36 = .T. 

do prtsf36 
endif 


len€trimCE->descrip)) < 23 


-and. E->descrip2 = ! 


Les. 


This module coordinates the activities necessary to make an 
open purchase. 
gather various user inputs. 
and the description of that item will fit in the space 
allowed on a DD~-1348 (€ < 23 characters), 
be generated. 
the item's description is lengthy, 
in addition to a DD-1348. 


If only one item 1s being ordered 
then a DD-1348 will 


If more than one item is being ordered, or if 
a SF-36 will be prepared 


HHH HHH KH HH KKK HK KK HK KKK KK KK KKK KK HK HK KKK KK KKK KK HK KK KK KKK KK KKK KKK KKK KK KKK KKKKKKER 


MK OK OK OK OOK OK OOK OK OK OOK OK OOK OK OK OK OK OOK OK OOK OK OOK OK OOK OOK OOK OOK OK 


do prtl348o 

do file_req 

if totval > 999.99 
do sup_memo 

endi f 

select E 

use 

erase &tempord 

return to master 
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3 
* 
x 
¥ 
X 
X 
* 
X 
X 
X 
% 
* 
X 
¥ 
¥ 
¥ 
* 
* 


GVVMVUMUMUUIUUMUUUMMIMIUMIUMIUMUMMVMIMVUMIUMUMUVUMUMVVMVMWUVIWNWWWHO2 02) 0) 


Module Name: 


Author: 


Purpose: 


This module is called by: 


This module prepares a supplemental memo to NPS Supply 


PRNT_SMO.PRG 


Tom Trotter 


memo to accompany an open purchase requisition if the total 


value of all items on the requisition exceeds $1,000. 


The 


purpose of the memo is to offer 2 alternative sources for 


except in the case of orders accompanied by a sole source 
justification. 


This module calls: NZA 


1,7 SAY 


"From:" 


1,14 SAY c_dept 
1,18 SAY "Department" 
1,56 SAY today 


3,7 SAY 


"To: 


5,7 SAY “"Sub3: 
5,50 SAY reqno 


7,7 SAY 


w] : 


x 
x 
¥ 
x 
¥ 
x 
x 
* 
x 
the requested material as required by Naval Supply regulations, x 
x 
x 
x 
x 
x 
x 
x 
¥ 


NPS Supply" 
Additional sources for requisition 


Due to the high value of subject requisition, 


7,62 SAY “"ollowing" 


8,7 SAY “multiple supply sources are submitted:" 


Weld 
12,45 
12,55 
12,57 
13,17 
14,17 
14,37 
14,44 
U7 17 
17,45 
17,53 
17,57 
18,17 
19,17 
19,37 
19,44 
Za,17 
235,45 
23,53 
23,57 
24,17 
25,17 
255 57 
25,44 


SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


29,7 SAY 


31,23 
31,48 
S525 
33,48 
34,1 


SAY 
SAY 
SAY 
SAY 


"Wo? ’ 


snamel 
"Phone: " 
areacodel 


fonel 
addrl 
cityl 


statel 


zipl 


sname2 
"Phone: ™ 
areacode2 


fone2 
addr2 
city2 


state2 


Zip2 


sname3 
"Phone: ® 
areacode3 


fone3 
addr3 
city3 


state3 


zip3 


pocl 
extl 
poc2 
ext2 


Department points of contact for this request are:" 


SAY chr 12) 
set device to screen 
return 


SS 


SUP_MEMO . PRG 
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X 
Module Name: PRTSF36.PRG 
Author: Tom Trotter 


x x 
x x 
X x 
x x 
* Purpose: This module contains loop which will read one item at a time ¥ 
¥ from the TEMPORD.dbf and generate an SF-36. The TEMPORD. dbf ¥ 
¥ 1s used as the information source because it contains the ¥ 
X fields of DESCRIP2 and DESCRIP3 which are not permanently ¥ 
¥ filed in the ITEM.dbf. This allows a fuller description to ¥ 
¥ be used in the generation of the documents, yet provides for ¥ 
¥ a more economical filing structure for long term files. Once ¥ 
¥ the user states that an acceptable SF-36 has been generated, ¥ 
¥ the TEMPORD.dbf is erased. This module will produce an SF-36 ¥ 
oe containing from 1 to 12 line items. ¥ 
x X 
¥ x 
X X 
x x 
x X 
X x 


This module 1s called by: OPN_ORDR.PRG 
This module calls: WARN_PRT.PRG 


KKH HK KK HH KKH HH KK HHH KK KKK KKK KKH KKK HK KKK KH HH KKK HK KK KK KKK KK HHH KKK KK NRK KKK RKKKKKKR 


do warn_prt 
ans = ! ! 
do while ans <> 'N! 
clear 
@ 10,26 SAY “LOAD SF-36 INTO PRINTER" 
aw 12,37 SAY "™&™ 
2 14,25 SAY "PRESS ANY KEY TO CONTINUE" 
set device to print 
@ 1,0 SAY ! 
wait '! 
reql = substr(€reqno,1,4) 
req2 = substr(reqno,5,4) 
ref = "N622717" + reql + '/' + req2 
®@ 1,51 SAY ref 
ai ic72z SAY “1 pe 
who = trim(€B->sname) 
where = ree + *, © + trimCB->city) + ', * + trim(€B->state) ; 
©! +80] > zip) 
who = ae + ', ' + where 
® 3,1 SAY who 
select E 
go top 
marker = 7 
do while .not. eof) 
@ marker,3 SAY E->1itemno 
@ marker,& SAY E->descrip 
@ marker,&4%9 SAY E->quant picture WHERE E™ 
@ marker,57 SAY E->unit 
@ marker,61 SAY E->uprice picture "#####. ##" 
amount = E->quant X E->uprice 
@ marker,/71 SAY amount picture "#####. ##" 
if descecripz < ' ' 
marker = marker + 1 
® marker,8& SAY E->descrip2 
endif 
1f descrip3 <> ' ! 
marker = marker + 1 
®@ marker,8 SAY E->descrip3 
endif 
marker = marker + 2 
skip 
enddo 
@ marker,/70 SAY " " 
marker = marker + 1] 
@ marker,35 SAY "TOTAL" 
@ marker,70 SAY "$" 


iS.6 


@ marker,/71 SAY totval picture "8%, ###. ##" 
@ 16,1 SAY chrO13) 
set device to screen 
clear 
@12,21 SAY "Do you want to reprint the SF-367" 
@ 12,56 GET ans picture "a!" 
read 
enddo 
return 


po 
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¥ 


¥ 
¥ 
¥ 
¥ 
¥ 
x 
x 
¥ 
X 
¥ 
¥ 
¥ 
¥ 
¥ 
¥ 
¥ 
¥ 


Module Name: PRT1348a.PRG 
Author: Tom Trotter 
Purpose: This module contains a loop which will print memory variables 
to the appropriate spaces on a DD-1348. It is designed 
handle slight variations in format based upon the value of 
TYPEORDR. 
This module is called by: STK_ORDR.PRG 
FORM_ORD.PRG 
PUB_ORD.ORG 
RSS_ORD.PRG 


This module calls: WARN_PRT.PRG 


HE HEHE HK HK HEE EE EE EEE HE EE DE EE EE EE EE EE EE EE EE EE EK KE EK KE EE HE KE EK KK EK EE EEK KK KRM RM RK KKK KK KKK 


do warn_prt 
’ 


ans = ! 
do while ans <> 'N' 


clear 
@ 10,31 SAY "LOAD PRINTER" 
ae l2,37 SAY “ae 
®@2 14,25 SAY “PRESS ANY KEY TO CONTINUE" 
set device to print 
ael,0 SAY ' * 
wait '? 
@ 1,6 SAY sendto 
@ 1,36 SAY "€62271) NPS," 
dept = trim(€c_dept) + ' Dept,' 
@ 1,49 SAY dept 
ccode = 'Code ! + trim(€A->code) 
1,59 SAY ccode 
2,36 SAY "Rm" 
2,39 SAY c_room 
2,45 SAY “Bldg” 
2,50 SAY c_bldg 
2,56 SAY c_phone 
f typeordr = ‘STOCK’ 
®@ 4,1 SAY nomenl 
2 5,1 SAY nomen2 
@ 5,25 SAY docid 
endi f 
2 5,30 SAY route 
if typeordr = 'RSS$'° 
@ 5,38 SAY money 
else 
@ 5,34 SAY ms_code 


HP OOWW2e) 


snuml = substr(stknum,1,4) 
snum2 = substr(stknum, 5,2) 
snum3 = substr(stknum,/7,3) 
snum4 = substr(stknum,10,4) 
snum = snuml + ! " + snum2 + ' * + snum3 + * ' + snum4 


@ 5,37 SAY snum 

®@ 5,59 SAY unt 

®@ 5,63 SAY qunt picture “#####" 
endi f 
@ 8,l SAY "™X 62271" 


reql = substr(Creqno,1,4) 
req2 = substr(Creqno,5,4) 
req3 = reql + ! ' + req2 


@ 8,ll SAY req3 

®@ 8,23 SAY demand 
@ 8,25 SAY service 
@ 8,27 SAY supadr 
@ 8,34 SAY signal 


eee 


to 


~ 
¥ 
¥ 
¥ 
¥ 
¥ 
¥ 
¥ 
¥ 
pS 
¥ 
¥ 
¥ 
¥ 
¥ 
¥ 
¥ 
¥ 


if typeordr = "FORM .or. typeordr = 'PUB* 
®@ 8,38 SAY nomenl 
endi f 
®@ 8,64 SAY rmko 
®@ 8,66 SAY "2D" 
if typeordr = 'FORM* .or. typeordr = 'PUB* 
®@ 9,38 SAY nomen2 
endif 
@ 12,1 SAY fund 
@ 12,5 SAY dist 
@12,9 SAY "OP4" 
@ 12,14 SAY priority. 
if rdd_yes 
@ 12,17 SAY rdd picture "###" 
endi f 
®@ 15,4 SAY "AA" 
do case 
case typeordr = 'RSS$'° 
2 15,49 SAY uprce picture "#####. ##" 
case typeordr = ‘'PUB'* 
ow 15,50 SAY “"N7C" 
otherwise 
@2 15,33 SAY uprce picture "####. ##" 
totval = qunt X* uprce 
@ 15,49 SAY totval picture "##, ###. ##"™ 
endcase 
2 16,1 SAY chr(13) 
set device to screen 
clear 
®@ 12,20 SAY "Do you want to reprint the DD-1348?" 
®@12,56 GET ans picture "ag!" 
read 
enddo 
return 


4 
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x 
x 
Xx 
* 
x 
* 
2 
Xx 
us 
x 
x 
Xx 
*% 
¥ 
x 


Module Name: PRT13480.PRG 
Author: Tom Trotter 


Purpose: This module prints a DD-1348 for open order purchases. It is 
designed to generate a DD-1348 which may be accompanied by 


an SF-36, or one which can stand alone, 
value of the logical variable SF36. 


This module is called by: OPN_ORDR.PRG 


This module calls: WARN PRT.PRG 


do warn_prt 


answv= ' ' 
do while ans <> 'N' 


clear 
®@2 10,31 SAY "LOAD PRINTER" 
qQeele,o? SAY "&" 


®@ 14,25 SAY “PRESS ANY KEY TO CON TENUES 


set device to print 

ae Uesny ' 

Wow 

®@ 1,1 SAY B->sname 

a 1,36 SAY “"C62271) NPS St 

dept = trim€c_dept) + ' Dept,' 
®2 1,49 SAY dept 

ccode = 'Code ' + trimC€A->code) 
1,59 SAY ccode 

2,1 SAY where 

2,56 SAY URM! 

2,39 SAY c_room 

2,45 SAY “Blidg" 

2,50 SAY clplde 

2,56 SAY c_phone 

5,25 SAY docid 

5,34 SAY ms_code 


‘OVOWOWMHNUHH C2) 


@ 5,59 SAY 


"SEE ATTACHED SF-36" 


E->descrip 
B= unit 


®@ 5,63 SAY E->quant picture "#####" 
endif 
aloe on 'X Gee 1" 


reql = substr(Creqno,1,4) 
req2 = substrCreqno,5,4) 
req3 = reql + ! mete rede 


®@ 8,1ll SAY req3 
8,23 SAY demand 
8,25 SAY service 
8,27 SAY supadr 
8,34 SAY signal 
8,64 SAY rmko 
SA cap 
125 say ocuna 
i 2ee5 Se dist 
Ze Oo -SAY VUEG* 
12,14 SAY priority 
if rdd_yes 
® 12,17 SAY rdd picture "###" 
endi f 
@ 15,4 SAY “AA” 
Lf .nGteesr 56 
®@ 15,33 SAY uprce picture "###H##. #H" 


VMOWVIUVIUVVMNAOOHL 
oo 
oO 
ON 
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£ 
* 

¥ 

£ 

% 

+ 

* 
depending upon the 3 
* 

X 

< 

£ 

x 

* 

7 
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endif 
®@ 15,49 SAY totval picture "##, ###. ##" 
& to, oAY chrcl3) 
set device to screen 
clear 
@12,20 SAY "Do you want to reprint the DD-13487" 
aw 12,56 GET ans picture “o!™ 
read 
enddo 
return 
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MK OK OOK OOK OOK OOK OK OK OOK OOK OOK OK OK OK 


Module Name: PRT1348x.PRG 
Author: Tom Trotter 


Purpose: This module prints a DD-1348 for transportation requisitions. 
It is formatted to include a field showing to whom the item 


is to be sent. 


This module is called by: XPOR_ORD.PRG 


This module calls: WARN_PRT.PRG 


HK HH HH HH HK KKH HK KKK KH KKK KKK KKK KKK RK KKK KKK KK KKK KK KKK KKH KKK KKK KKKK KKK KKK KK KKKKR 


do warn_prt 
ans = ! ! 
do while ans <> 'N!? 


clear 
a2 10,31 SAY “LOAD PRINTER*™ 
ae 12,37 SAY “&" 


2 14,25 SAY “PRESS ANY KEY TO CONTINUE" 


set device to print 
@a1,0 SAY * ! 

wait '' 
select B 

use 

use &sup index &supno_s 
key = M->supno 

find &key 
sendto = B->sname 
a2 1,6 SAY sendto 
a> 1,36 SAY 62271) NPS," 
dept = trim(€c_dept) + ' Dept,' 
®@ 1,49 SAY dept 

ccode = 'Code ' + trim(€A->code) 
1,59 SAY ccode 

2556 SAY tRm" 

2,39 SAY c_room 
2,45 SAY "Bldg" 
2,50 SAY c_bldg 

2,56 SAY c_phone 

5,25 SAY docid 

5,38 SAY "Ticket to:" 
5,59 SAY unt 
7,38 SAY shipto 
a, li) Sire eee 

= substr(reqno,1,4) 
req2 = substr(Creqno,5,4) 
= reql + ! ' + req2 

8,11 SAY req3 

8,23 SAY demand 

8,25 SAY service 

8,2/ SAY supadr 

8,34 SAY signal 

8,38 SAY addrl 

8,64 SAY rmko 

8,66 SAY "2D" 

9,38 SAY addr2 

10,38 SAY addr3 

11,38 SAY addr 

12,1 SAY fund 

12,9 SAY. “0OPG"™ 

12,14 SAY priority 

15,4 SAY SUAA 

15,50 SAY uprce picture "###. ##" 
16,1 SAY chr cls) 
et device to screen 


OOWOWWMHOHWOWWHH 


YW OOWMWMOMWMMDOWMWMWMVMWMWMNHOHH 
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x 
* 
x 
x 
x 
x 
* 
* 
x 
x 
x 
x 
x 
x 


clear 
@ 12,20 SAY "Do you want to reprint the DD-13487" 
@ 12,56 GET ans picture "9!" 
read 
enddo 
return 
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Module Name: PUB_ORD.PRG 
Author: Tom Trotter 


This module calls: GET_RDD.PRG 
GET_CAT .PRG 

GET_PRI.PRG 

BUY1_ITM.PRG 

FILE REQ.PRG 


ae 
% 
% 
% 
x 
xX 
% 
x 
X 
% 
% 
¥ FILE ITM. PRG 
x 

= 


ans = ' ! 

clear 

8,31 SAY “PUBLICATION ORDER" 
9,31 SAY "------------------ - 


16,30 SAY "Continue (CY/N)7" 
16,47 GET ans 
read 
if upper(Cans) <> 'Y! 
return 
endif 
Public sendto,supno,route 
sendto = '(€00288) NAVPUBFORMCEN PHILA’! 
supno = '2222' 
route = 'NFZ' 
do get_rdd 
do get_pri 
do get_cat 
do buyl_itm 
Public docid,signal, fund 
docid = ‘'AOD!* 


@ &) & & e) e&) 


Signal = '‘'D!* 
if uprce = Q 
fund = '"Y6! 
else 
fund = '2S' 
endif 


do prtl1348a 
do file_req 
do file_itm 
return to master 


Tuy 


PA. 


Philadelphia. 


Purpose: This module coordinates the process of ordering forms 
from NAVPUBFORMCEN, Philadelphia, 


This module is called by: NEW_ORDR.PRG 


HE HEH HE HEHE HEE EE HE HE EE HE HE KE KE KK EK EK EK KK KEK EEK KK KH HK KEK KKK KKK KKK RK KK HK HK KKK KKK KKK KKK RKKKKEKR 


11,13 SAY “This program prepares the documents required to order" 
12,13 SAY “publications from NAVPUBFORMCEN, 


% 
% 
x 
% 
% 
¥ 
% 
¥ 
bo 
% 
% 
% 
¥ 
¥ 
¥ 
¥ 
* 
% 
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Module Name: QUIT.PRG 


Author: Norm Lyons 10785 
Modified by: Tom Trotter 12/85 (converted to dBASE III) 


¥ 
¥ 
a 
% 
x 
¥ 
Purpose : This program terminates processing and returns ¥ 
control to the operating system. At the end of ¥ 

each appropriate menu, an option to to quit is ¥ 

displayed. If the user enters "Q" to quit, the ¥ 

program ends and control is returned to the X 

operating system. X 

* 

¥ 

% 

x 

¥ 

¥ 


This module is called by: MAIN.PRG 


This module calls: N/Z/A 


mK KK MK OOK OK OOK OK OK OK OK OK OK OK OM OK OK OK 


KKK KK HHH KK KKK KKK KKK KK HK KKK KKK KK KKK KK KKK KK KKK KKK KKK KKK KKKKK KK KK KKKKKKKKKKKKKK 


»28 SAY "End of Dialog" 

»10 SAY “If you are using floppy disks, replace them in their" 
»10 SAY “protective jackets. Do not touch the surface of" 

1,10 SAY “the disk (the little oval opening at the bottom of the" 
eels, 10 SAY “disk).™ 

set color to &mscolor 

@ 22,9 SAY “Press any Key to return control to the operating system" 
set color to &ccolor 

wait '! 

quit 


a 5 
a7 
a 9 
a1 
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x x 
* Module Name: REQ _HDR.PRG x 
x x 
* Author: Tom Trotter ¥ 
x% x 
* Purpose: This module is used by the various modules which display ¥ 
¥ requisitions to put a common header on the screen. It ¥ 
¥ has been put into a separate module in order to avoid ¥ 
¥ code duplication. % 
x x 
* This module is called by: DISI1_REQ.PRG ¥ 
¥ DIS2_REQ.PRG ¥ 
x DIS3_REQ.PRG ¥ 
x x% 
* This module calls: NZ/A X 
4 x 
HH HE HE HE HE HE HE HEE EE EE EE EE EEE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE KE EE EE EE EK RMX 


lear 

1,5 SAY "Account Name:" 

1,19 SAY A->aname 

1,51 SAY “Requisition #:" 

1,66 SAY C->reqno 

2,5 SAY “Account .4: ™ 

2,16 SAY C->accno 

Zl Sale erority: 

2,61 SAY C->pri_code 

5,2) SAY “Tto:" 

3,25 SAY B->sname 

3,51 SAY "Date:" 

3,57 SAY C->rdate 

G,25 SAY B->addr 
here = trim(€B->city) + ', '+ B->state + ! ' + B->21p 
5,25 SAY where 
a 7,2 SAY * ¢ Item Unit Cost" 
®2 7,58 SAY "Quant Revd P.O. #" 


OC OwWwvwwvvIvdwvvvvevan 


return 
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X 

* Module Name: RSS_ORD.PRG 

x 

* Author: Tom Trotter 

x 

* Purpose: This module prepares a DD-13498 for "Money Value Only" as a 
X method of payment in response to regular billings from the 
% NPS Ready Supply Store CRSS). 

x 

* This module is called by: NEW_ORDR.PRG 

xX 

* This module calls: GET_CAT.PRG 

% FILE_REQ.PRG 

% PRT1348a.PRG 

x 

KKK HK KKK HK KK HHH HHH HHH HHH HH HHH HHH HH HH HHH HHH HH HHH HHH HH HHHKHK HH HH KK KKK KKK KKRKHKKK 
ans = * ! 

clear 


2 8,31 SAY "$$ REIMBURSEMENT TO RSS* 
29,31 SAY "----------------------- 


@ 11,13 SAY 'This program prepares a DD-1348 for “money value only"! 


212,13 SAY “as reimbursement to the NPS RSS." 
2 16,30 SAY "Continue CY/N)?7" 
2 16,47 GET ans 


read 

if upper(Cans) <> 'Y' 
return 

endif 

public dist, uprce 

dist = ! 

uprce = 0. a 

ans = ! 

clear 


do while ans <> 'Y! 
@ 6,32 SAY ®"RSS $$ REIMBURSEMENT ® 


a 
@ 10,33 SAY "$$ Amount: $" 

®@ 10,46 GET uprce picture "####. ##" 
@ 13,29 SAY "COG Symbol on billing:" 
@ 13,53 GET dist picture "a!" 


®@ 16,32 SAY "Correct CY/N)7" 
®2 16,498 GET ans picture "a!" 


enddo 

public sendto,supno,route,money,priority,rdd_yes,pri_code 
rddyes = .F. 

sendto = '203J READY SUPPLY STORES! 
supno = '0000! 

route = 'Z9S! 

Priority = '15! 

pri_code = !C! 

do get_cat 

money = "MONEY VALUE ONLY! 
public signal, fund 

Signal = ‘'D! 

fund = '2S! 

do prt1l1348a 

select D 

use 

use &item index Sreqno_ 1,&pono_i 
append blank 

replace descrip with M->money 
replace quant with 1 

replace rcevd with .T. 

use 

do file_req 
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x 
x 
x 
x 
x 
xX 
x 
Xx 
x 
x 
x 
x 
x 
x 
x 
x 


return to master 
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This module allows the user to access the ACCNT.dbf, 
scrolling forward and backward until a specific account 

is selected for use. If the desired account is not 
already on file, the user may opt to create it by invoking 


X 
* Module Name: SEL_ACNT.PRG 
¥ 
* Author: Tom Trotter 
X 
* Purpose: 
X 
¥ 
¥ 
¥ NEW_ACNT.PRG from within this module. 
¥ 
* This module is called by: DIS2_REQ.PRG 
¥ DIS3_REQ.PRG 
& NEW _ORDR.PRG 
¥ SHW_NRI.PRG 
x 
* This module calls: NEW_ACNT.PRG 
5 3 
x 
do while .T. 
select A 
choice = G 
clear 
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set scoreboard on 


@ 2,28 SAY "SELECT AN ACCOUNT" 
@ 3,22 SAY “were err err rn er rrr ree ene : 
ama, 22 say “TL 1. By Account Name pe 
a 5,22 SAY ®[ 2. By Account Number ie 
me 6-22 SAY ™L 3. Enter New Account )* 
@ 7,22 SAY " G Return to Main Menu Jj" 
SR . 
@ 10,29 SAY “Your choice:" 
@ 10,43 GET choice picture "#" range 1,4 
read 
set scoreboard off 
aname = 
public accno 
accno = ! 
do case 
case choice = l 
use 


®@ 14,27 SAY “Account Name:* 
@ 14,42 GET aname 
®@ 16,27 SAY "(Blank aborts process)" 
read 
if aname = ' ! 
return to master 
endif 
id = trimCupper(Caname) ) 
use &accnt index &aname_a,&accno_a 


case choice = 2 


use 

®@ 14,27 SAY “Account Number:" 

®@ 14,44 GET accno 

@ 16,27 SAY “CBlank aborts process)" 
read 


1f accno = ' ! 
return to master 

endif 

id = trimCupper(Caccno) ) 

use &accnt index &accno_a,&aname_a 
case choice = 3 

do new_acnt 
case choice = G4 

use 


return to master 


endcase 
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x 
* 
X 
¥X 
X 
x 
% 
% 
% 
¥ 
X 
* 
¥ 
X 
X 
X 
¥ 
X 
¥ 


if choice <> 3 
find &id 
if Ceof() 

use 
clear 
@ 5,27 SAY 
@ 7,14 SAY. 
@ 8,14 SAY 
@ 9,14 SAY 
d@ 10,14 SAY 
set color t 
wait &wmsg 
set color t 


endif 
endif 
if .not. eof) 
pick = 4 
ok = , 
do while .not. 
clear 


wOllare 


bof €)) 


"ACCOUNT NOT FOUND" 


"Tf you believe this account is immene file, 


trys 


"a shorter version of either the account name or" 


"umber (Ce.g. 
"number is R1234 or R1235, 
o &mscolor 


o &ccolor 


ok 


set scoreboard on 


Secu oAl 

S557 SAT 

5,22 SAY 

5,39 SAY 

7;,2e SAY 

7329 SAY 

9,22 SAY 

9,497 SAY 

ll,22 SAY 
11759 “say 
12,52 SAY 
12; 59 SAY 
14,27 SAY 
14,496 GET 
15,22 SAY 
16,22 SAY 
17322) ony 
18,22 SAY 
19,22 
20,22 
21,22 
read 


SAY 
SAY 


@) @) @) @) @) @) @) @) @) @) @) 2) @) @) @) A) @) @) @) ©) @) 


SAY | 


"Account Name:" 

aname 

"Account Number:" 

accno 

"¥Code : ? 

code 

"Research Account (T/F):® 
research 


"Requisition Serial # Range - 


loserno 

"To : v? 

hiserno 

"Select an action:" 


—— ep ep ep ep ee eee eee eee eee ee ee ee eee ee ee ee ee ee ee ee ee ee oe oe oe 


Use this account 
Scroll to 
Scroll to 
Return to 
Return to 


set scoreboard off 


do case 
case pick 
accno = 
return 
case pick 
if .not 
skip 
endif 
case pick 
if .not 
skip 
endif 
case pick 
ok = 
case pick 
return 
endcase 
enddo 
endif 
enddo 


= 1 


A->accno 
= 2 

. bof C) 
all 

= 3 

. eof) 

= Gq 


7 - 
to master 


oe 


if you are unsure if the account" 


look for R123 instead)." 


From:" 


]" 


previous account ]" 
next account aa, 
last menu 
main menu 


)" 
]* 
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OK OK OO KK OK KK OK OK OK OK OK OK 


do while 


select 


Author: 


Purpose: 


lee 
B 


choice = 4 


clear 


Module Name: SEL _SUPL.PRG 
Tom Trotter 


This module allows the user to access the SUPT.dbf, 
scrolling forward and backward until a specific supplier 
1s selected for use. If the desired supplier is not 


already on file, the user may opt to enter 
NEW _SUPL.PRG from within this module. 


This module 1s called by: NEW _ORDR.PRG 


SUP_MEMO .PRG 


This module calls: NEW _SUPL.PRG 


set scoreboard on 


2,28 
Syed 
4,22 
5,22 
6,22 
ace 
8,22 


Yowe eee) e) &) 


read 


SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


11,29 SAY 
11,43 GET choice picture "#" range 1,4 


MSELECT A SUPPLIER" 

SS eS tf 
re 1. By Supplier Name Pie 
= 2. By Supplier Number " 
[ 3. Enter New Supplier jf 
we G. Return to Main Menu Jj" 


"Your choice:"™ 


set scoreboard off 
public supno 


sname = 


sSUuUPNO 


do case 


case choice = 1 


use 


®@ 14,27 SAY "Supplier Name:" 
2 14,42 GET sname 

2 16,27 SAY "CBlank aborts process)" 
read : 

if sname = * ! 


endif 

id = trimCupper(sname) ) 

use &sup index &sname_s 
case choice = 


use 


return to master 


®@ 14,27 SAY "Supplier Number:" 

a2 14,44 GET supno 

@ 16,27 SAY "CBlank aborts process)" 
read 
if supno = * ! 


endif 
id = trimCupper(supno) ) 
use &sup index &supno_s 
case choice = 3 
do new_sup] 
case choice = 4 
return to master 


endcase 


return to master 


if choice <> 3 


find &id 
if Ceof() 


.or. bof()) 


ll 


x 
x 
x 
x 
x 
¥ 
x 
x 
it by invoking ¥ 
x 
x 
x 
x 
x 
x 
x 
x 
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use 
clear 


@ @) @) @ @) &) 


5,27 


9,14 SAY “number Ce.g. 


SAY 


"SUPPLIER NOT FOUND" 
7,14 SAY "If you believe this supplier is in the file, 
8,14 SAY "a shorter version of either the supplier name or" 


'Gr't 


set color to &mscolor 
wait &wmsg 
set color to &ccolor 
endif 


endif 
if 


not. 


eo 


pick = G 


ok 


= .F 


do while 
clear 
set scoreboard on 

NSELECTED SUPPLIER" 


@) &) @ @) @) @) @) @) G) @) @) @) @) @) @) @) @) OD) 


set scoreboard off 


2,29 
5,25 
6,25 
fo co 
7,41 
7,48 
95.25 
9,48 
9,61 
14,27 
14,46 
15,22 
16,22 
17,22 
18,22 
Dee 
20,22 


do case 


endcase 


case 


FO) 


not. 


SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
GET 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


pick 


ok 


sname 
addr 
city 
state 
zip 
fone 


"Supplier #:" 


Ssupno 


instead)." 


"Select an action:" 


pick picture 


= ] 


tt # ff 


Use this supplier 


Scroll to 
Scroll to 
Return to 
Return to 


supno = B->supno 


ret 
case 
if 


urn 
pick 
-not 


= 2 


. bof@) 


skip -l 
endif 


case 
Tf 
s 


pick 
-not 
kip 


endif 
case pick = 4 


ok 


=e 


= 3 


. eof) 


case pick = 5 
return to master 


enddo 


endif 


enddo 


range 1,5 


previous supplier 
next supplier " 
last menu 
main menu 


ls )2 


try" 


cee 


1f you are unsure if the supplier" 
10,14 SAY "name is Grey Electric or Gray Electic, 
11,14 SAY "looking for 
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Aut 


% 
* 
¥ 
4 
¥ 
* 
¥ 
¥ 
x 
¥ 
¥ 
* 
¥ 
* 
* 
¥ 
¥ 
x 


ans = 
clear 
®2 7,28 SAY "LIST ITEMS NOT RECEIVED" 
Oe 
®2 10,13 SAY “This program generates a listing of items ordered but" 
®211,13 SAY "not yet received. The list may be sent to the screen" 
@12,13 SAY “or printer at the user's option. The search for items" 
213,13 SAY "not received may also be limited within parameters" 
®2 194,13 SAY "provided by the user." 
217,29 SAY "Continue CY/N)?7" 
a 17,46 GET ans 
read 
if upperCans) <> 'y! 
return 
endif 
pick = 3 
clear 


Purpose: 


Module Name: SHW_NRI.PRG 


hor: Tom Trotter 
This module displays items which are on file in the ITEMS.dbf 
shown as not yet received (RCVD field = .F.). The user may 
direct output to the screen or printer. He has the option of 
listing all items marked as not received, or he may limit the 
listing to items from a specific account. This module may be 


easily expanded to accomodate screens based upon date of 


order. 


This module is called by: MAIN.PRG 
This module calls: WARN_PRT.PRG 


SEL_ACNT .PRG 
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set scoreboard on 


@ 5,25 
a2 5,46 
®2 6,12 
®@ 7,12 
@ 8,12 
®2 9,12 
a 


SAY “Select Search Type:" 

GET pick picture "#" range 1,3 

SAY Sn rrr rrr rss 2 
SAY - 1. No limits Cshow all not received items) ye 
SAY "C€ 2. Limit list to specific account number Jp 
SAY ™{ 3. Return to main menu yy 


10,12 SAY “------------------- 1 


= 1 


13,29 SAY “Select Display:" 
13,46 GET outpt Picture "#" range dire 
14,28 Sy eee ome aoe coor cence ce 


16, 2a sArewGe 2. Printer ae 


Q 
a 
a 
®2 15,28 SAY RL 1. Screen 1" 
Q 
a 


17,28 SAY WE ee a ee ee vt 


read 
set sc 


oreboard off 


counter = 
marker = Q 


Value 
totval 
totcnt 


= 0.00 
0.00 
0 


do case 
case pick = l 


if outpt 


2 
prtout al. 
do warn_prt 


tore 


¥ 
¥ 
% 
x 
x 
X 
% 
% 
x 
x 
% 
x 
% 
* 
X 
x 
x 
x 
x 


clear 

@ 10,31 SAY "LOAD PRINTER" 

@ 12,37 -SAY “2 

®@ 14,25 SAY "PRESS ANY KEY TO CONTINUE" 


set device to print 


a 2,35 SAY trim(€c_dept) + ' Dept! 
2 3,21 SAY "ITEMS NOT RECEIVED AS OF" 


®@ 3,47 SAY today 

a2 4,1 SAY ™ # Item Req # 
a 4,57 SAY * P.O. # Quantity" 

@ 5,1 SAY Sperm mrt rrr rr rrr 
ooo) ee a 

select D 

use &item index &reqno_i 

go top 


do while .not. eof) 
if .not. revd 

counter = counter + 1 

marker = marker + 1 

value = D->quant X* D->uprice 

totval = totval + value 

totent = totent + D->quant 
marker+5,1 SAY counter picture "###" 
® markert+5,6 SAY D->descrip 
@ markert+5,45 SAY D->reqno 
a markert+5,58 SAY D->pono 
@ 
1 


@) 


marker+5,69 SAY D->quant picture "#####" 
f marker > 14 .and. .not. prtout 


marker = 1 
wait &wmsg 
a? 6,0 clear 
endif 
endif 
skip 
enddo 
if counter = Q 
2 10,21 SAY "ALL ITEMS ARE MARKED AS RECEIVED" 
else 


@ markert+8,15 SAY "Total items:" 
®@ markert+8,28 SAY totcnt picture "#####" 
@ markert+8,45 SAY "Total value: $" 
@ markert&,59 SAY totval picture "#, ###, ##%. ##" 
endif 
if prtout 
@ markert+8,70 SAY chr(12)} 
set device to screen 
endif 
case pick = 2 
do sel_acnt 
key = A->accno 
if outpt = 2 
prtout = .T. 
do warn_prt 
clear 
210,31 SAY "LOAD PRINTER" 
as 12,37 SAY “&"™ 
@2 14,25 SAY "PRESS ANY KEY TO CONTINUE® 
set device to print 
a«1,0 SAY * ! 
Waaat "* 
else 
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@ 1,28 SAY "For Account #:"* 

@21,43 SAY key 

@ 2,21 SAY "ITEMS NOT RECEIVED AS OF*® 

®@ 2,47 SAY today 

a2 4,1 SAY ™ # Item Req # 
a G,57 SAY * P.O. ¢# Quantity" 


use &req index &accno_r 
find &key 
if eof () 
@ 8,10 SAY "No requisitions found for account name:" 
a2 8,50 SAY A->name 
else 
do.while C->accno = key .and. .not. eof (©) 
kKey2 = C->reqno 
select D 
use &item index &reqno_i 
find &key2 
do while D->reqno = key2 .and. .not. eof () 
if .not. rcvd 


counter = counter + 1] 

marker = marker + 1] 

value = D->quant * D->uprice 
totval = totval + value 


totcent = totent + D->quant 


@ markert5,1 SAY counter picture "###" 
@ markert+5,6 SAY D->descrip 
@ markert+5,45 SAY D->reqno 
@ markert5,58 SAY D->pono 
®@ markert+5,69 SAY D->quant picture "#####F" 
if marker > 149 .and. .not. prtout 
marker = 1 
wait &msg 
@ 6,0 clear 
endif 
endif 
skip 
enddo 
select C 
skip 
enddo 
if counter = 0 
@2 10,21 SAY "ALL ITEMS ARE MARKED AS RECEIVED" 
else 


@ markert+8&,15 SAY "Total items:" 
® markert8&,28 SAY totcnt picture "######" 
®@ markert8&,45 SAY "Total value: $" 
a markert8&,59 SAY totval picture "#, ###, ###. ##" 
endif 
endi f 
if prtout 
@ markert+8&,70 SAY chr(12) 
set device to screen 
else 
wait &wmsg 
endi f 
endcase 


iO 
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* 
¥ 
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x 
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% 
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Module Name: STK_ORDR.PRG 
Author: Tom Trotter 


Purpose: This module offers the user a menu option of ordering a 


standard stock item from either NPS RSS, NSC Oakland, 


GSA. It subsequently invokes various modules to gather 


the data required for the order. 


This module 1s called by: MAIN.PRG 


This module calls: GET_RDD.PRG 
GET_PRI.PRG 
GET_CAT .PRG 
BUY1_ITM.PRG 
PRT1348a.PRG 
FILE_ITM.PRG 
FILE_REQ.PRG 


choice = GY 
clear 
set scoreboard on 


set scoreboard off 
public supno,sendto,route 
do case 

case choice = l 


sendto = '203J Ready Supply Stores’ 


route = '2Z9S'° 
supno = '0000' 
case choice = 1 
sendto = '(€00228) NSC Oakland, CA! 
route "NOZ! 
Supno Sie 
case choice = 2 
sendto = ‘'GSA' 
route = 'GSA* 
supno = '2222' 
case choice = 3 
return 
endcase 
do get_rdd 
do get_pri 
do get_cat 
do buyl_itm 
Public docid,signal, fund 
docid = ‘AOA! 
signal = ‘'D! 
fund = "2s" 
do prt1348a 
do file_req 
do file_itm 


© 
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®@2 4,25 SAY "STANDARD STOCK REQUISITION" 

®@ 6,14 SAY "This program prepares a requisition for either a" 
®@ 7,14 SAY "GSA or DOD standard stock item. If you want to" 
®@ 8,14 SAY "order forms or publications, return to the previous" 
2 9,14 SAY "menu." 

@s 12, 21954. - ss ee eee SS a ee ee eS SS ae A 

@13,21 SAY "—E 1. NPS RSS Order Jy 

®@ 14,21 SAY "C 2. NSC Oakland Order ere 

@ 15,21 SAY "€ 3. GSA Order jy" 

@ 16,21 SAY "C 4. Return to previous menu Jj" 

ee 7 5 ee ae " 

@°18,29 SAY “Select:"™ 

@ 18,38 GET choice picture "#" range 1,4 


or 


* 
x 
x 
x 
¥ 
% 
¥ 
x 
x 
x 
% 
x 
¥% 
¥ 
x 
x 
x 
¥ 
¥ 
x 
% 


return to master 


od 
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¥ 

* Module Name: SUP_MEMO 

x¥ 

* Author: Tom Trotter 

¥ 

* Purpose: This module 1s conditionally invoked if the total value of 
% an order exceeds $999.99. It uses SEL_SUPL.PRG to specify 
¥ suppliers to include in a supplemental memo prepared to 

¥ accompany the requisition. Three suppliers and 2 dept 

¥ points of contact (POC's) must be specified. After the 

x required data is collected, it invokes PRNT_SMO.PRG to 

¥ print the actual memo. 

x 

* This module is called by: OPN_ORDR.PRG 

x 

*¥ This module calls: PRNT_SMO.PRG 

¥ SEL_SUPL.PRG 

X 

HHH HK HK HK HK HK KK KK KH EK KK KK HK KK EK EK KK HK HK KK KE KK KKK HHH HK KKK KKK KK RRR RRR KKK 
clear 

®@ 4,24 SAY “ADDITIONAL SUPPLY SOURCES MEMO" 

®@ 5,24 SAY “errr tr rr rr tr rr rss ss sss rrr s---- “~ 

@ 7,12 SAY “Since the total value of this order exceeds $1,000.00," 

a 8,12 SAY “a memo, citing 2 additional supply sources, must" 

a2 9,12 SAY “accompany the requisition. Two points of contact" 

®@ 10,12 SAY “knowledgeable about the request requirements should also" 
®@ 11,12 SAY “shown on the memo." 

@ 14,26 SAY "Press any Key to continue..." 

wait '' 

clear 

select B 


@ 3,11 SAY "This requisition shown the following company 
G,11 SAY “primary supplier." 
7,20 SAY sname 
7,47 SAY areacode 
7,57 SAY fone 
addr 
9,20 SAY city 
9,945 SAY state 
9,52 SAY zip 
public snamel,areacodel,fonel,addrl,cityl,statel,zipl 
snamel = B->sname 


OVOWeoe ee) 
0° 
NO 
© 
“ 
> 
~< 


areacodel = B->areacode 
fonel = B->fone 
addrl = B->addr 
cityl = 75B--eity 


statel = B->state 

zZipl = B->zip 

®@ 13,11 SAY "You will now be requested to identify 2 add 
@ 14,11 SAY “suppliers." 

@ 16,21 SAY "Press any Key to continue..." 

Wait '' 

do sel_supl 

public sname2,areacode2, fone2,addr2,city2,state2,zip2 
sname2 = B->sname 


areacode2 = B->areacode 
fone2 = B->fone 
addr2 = B->addr 
city2 = B->city 


state2 = B->state 

zZzip2 = B->zip 

clear 

@ 12,19 SAY "Time to select one more supplier." 

®@ 16,21 SAY “Press any key to continue..." 

wait '' 

do sel_supl 

public sname3,areacode3, fone3,addr3,city3,state3,zip3 


iene 


as the™ 


itional" 


* 
* 
x 
* 
x 
x 
* 
x 
% 
% 
% 
% 
% 
* 
x 
x 
% 
% 
% 


sname3 = B->sname 


areacode3 = B->areacode 
fone3 = B->fone 
addr3 B->addr 


city3 = B->city 
state3 = B->state 
zip3 = B->zip 
clear 
ans =! ?* 
public pocl,extl,poc2,ext2 
pocl : ' 
poc2 
extl 
ext2 
do while upperCans) <> 'yY' 
5,28 SAY "ENTER POINTS OF CONTACT" 
26S. ————— — — — —— — — — — — — — - 
9,18 SAY “Name:*™ 
9,25 GET pocl 
9,48 SAY “Ext:"™ 
GET extl 
11,18 SAY "Name:" 
11,25 GET poc2 
11,48 SAY “Ext:" 
11,54 GET ext2 
14,30 SAY "Correct CY/N)?7" 
14,46 GET ans 


OOWWHOHQ)0)08) 2) 
O 
wn 
7) 


do warn_prt 

clear 

2 10,31 SAY "LOAD PRINTER" 

® 2,357 SAY "&%"™ 

®@ 14,25 SAY “PRESS ANY KEY TO CONTINUE" 
set device to print 

a~l,l SAY * ' 

wait '! 

do prnt_smo 

return 


igo 
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¥ x 
* Module Name: WARNING.PRG # 
¥% ¥ 
* Author: Tom Trotter ¥ 
¥ ¥ 
¥ Purpose: This module is used by BUY2_ITM.PRG to display a screen ¥ 
¥ warning that no item was entered and the order process ¥ 
¥ 1s about to be terminated. ¥ 
¥ ¥ 
* This module is called by: BUY2_ITM.PRG ¥ 
¥ ¥ 
* This module calls: NZA + 
¥ x 
HE HK HE HE HE HE HE HE HE HE EEE EE EE HE EE EE EE EE EE EE EE EE HE EE EE EE EE EE EE SE EE EE EE EE HE HE EE EE HE EE EE EE EE ERK 


ans = ! $ 
do while .T. 
clear 
@ 6,31 SAY "WARNING !!* 
@ 7,31 SAY “"eerre----- = 
®2 9,14 SAY "Since no item was entered i1t 1S assumed that" 
®2 10,14 SAY “you desire to abort the entire order process!" 
® 12,22 SAY "Do you want to abort (Y/N)?" 
®@ 12,51 GET ans 
read 
if upper(Cans) = 'Y'! 
return to master 
else 
goahead = .F. 
return 
endi f 
enddo 
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Author: 


Purpose 


X 
X 
X 
X 
x 
Xx 
X 
X 
X 
X 
X 
Xx 
*% 
X 
x 
X 
X 
Xx 
X 
X 


do while .T. 
ans = * 
clear 
@»5,50 SAY “PREPARE PRINTER™ 
yp 
®@ 8,13 SAY “Since output will now be sent to the" 
®2 9,13 SAY “printer, it should be connected and have the power" 
®@ 10,13 SAY “turned on now." 
@ 12,13 SAY "WARNING - Failure to prepare the printer may cause" 
®@ 13,23 SAY “the computer to hang and possibly result" 
@ 14,23 SAY “in loss of data.™ 
®@ 17,29 SAY "Continue (CY/N)?7" 
®@ 17,46 GET ans 
read 
if upperCans) = 'N! 
return to master 
endif 
1f upperCans) = 'Y' 
return 
else 
return 
endif 
enddo 


To 


Module Name: WARN _PRT.PRG 


m Trotter 


This module displays a warning before any output is directed 
to the printer. The user 1s advised to prepare the printer 


or face the consequences. 


This module is called by: DISI1_REQ. 


DIS2_REQ 
DIS3_REQ 
PRT1348a 
PRT13480 
PRT1348x. 
PRTISF36.P 
SHW_NRI.P 
SUP_MEMO. 


ene 


PRG 


»PRG 
~PRG 
PRG 
PRG 


PRG 
RG 
RG 
PRG 


KKK KKK KKK KKK KKK KKK KKK KK KK KKK KKK KKK KKK KKKKKK KKK KK KKK KKKKKKKKKKKKRKKRKKKKKKKKKR 


¥ 
¥ 
X 
¥ 
¥ 
x 
X 
x 
¥ 
% 
¥ 
% 
¥ 
x 
% 
X 
¥ 
¥ 
X 
% 


HE HEHEHE HE HEHE IE HE IE HE HE IE HE HE IE HE HE HE HE HE HE IE HE IE IE IE HE HE IE IE HE IE IE HE HE HE IE HE HE IE HE HE HE HEE IEE HE IE HEE HE IE IE HE HE HE HE IE IE HE EE HEE EE EE HM KKM 


: Module Name: WELCOME.PRG x 
: Author: Tom Trotter : 
; Purpose: This module displays the intital welcome banner and x 
X describes the current disk configuration xX 
: This module is called by: MAIN.PRG : 
: This module calls: NZA : 
S.9€ 909096909096 909036 IIE 99099 He ee 


clear 

®@ 3,16 SAY “WELCOME TO THE NPS SUPPLY REQUISITION DATABASE®™ 

a2 6,8 SAY "This program is designed to originate requisition documents" 
@ 7,8 SAY "CDD-1348s and SF-36s), as well as maintain a database of" 

ad 8,8 SAY "requisition status for a particular department. The system" 

®@ 9,8 SAY “is designed for use by any personnel who are familiar with" 

®@ 10,8 SAY “Naval Supply terminology, however, a detailed understanding" 
@11,8 SAY “of the decision matrix used in the generation of requisition" 
a@12,8 SAY "documents 1S unnecessary." 

®@ 16,8 SAY "WARNING - If the user fails to adhere to any warnings" 

®@2 16,63 SAY “presented" 

@17,19 SAY "by the program, he does so at the risk of data loss." 
@19,19 SAY "Disks should NEVER be removed from the drives until" 

@ 20,19 SAY "the program has been exited." 

? 

: 

wait ° Press a key to continue...' 

restore from config.var 

clear 


@ 4,30 SAY "LOAD DISK DRIVES" 
eo - 
®@ 7,27 SAY “Database Disk Location" 
1f c_sdrv = c_adrv 
® 10,20 SAY “Accounts/Supplier Disk: ° ' Drive" 
@ 10,46 SAY c_adrv 
else 
®@ 9,27 SAY “Suppliers: ° ' Drive" 
®@ 9,41 SAY c_sdrv 
@11,27 SAY "Accounts: ° *' Drive" 
@ 11,41 SAY c_adrv 
endi f 
®@ 16,9 SAY “Ensure that the disk drives are properly loaded before" 
2 16,64 SAY "proceeding!" 
? 


? 


Wadtu Press a key to continue... 
return 


ao 2 
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